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Figura 1 - Programmino 
BASIC che fa lampeg- 
giare una scritta sullo 
schermo. A qualcuno 
può bastare! 


Figura 2 - Caricatore in 
BASIC del programma 
in linguaggio macchina. 
Contiene un esempio di 
utilizzo. 
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di Edoardo Patrucco 


calcolatori Commodore non sono dotati di 
Ì istruzioni per rendere lampeggiante una 
scrittura sullo schermo. Per ottenere un simile ef- 
fetto si possono utilizzare sottoprogrammi come 
quello di figura 1. Essi indubbiamente possono 
essere utili in molti casi, quando occorra attirare 
l'attenzione dell'utente di un programma o fargli 
notare un errore; però fanno perdere alla mac- 
china un tempo che si potrebbe utilizzare meglio 
e inoltre il lampeggio di scritte in punti lontani 
sullo schermo è difficoltoso. Con questo program- 
ma il lampeggio diventa un'operazione traspa- 
rente al programma BASIC e diventa una carat- 
teristica delle locazioni dello schermo; non è però 
legato ai vari caratteri, ma alla posizione: quindi, 
ad esempio, i primi dieci caratteri dello schermo 
lampeggiano sempre, anche dopo uno scorri 
mento del testo verso l'alto. Questo non è un 
problema, soprattutto se il programma è usato 
assieme ad altri che operino senza causare lo 
scroll della pagina video. Lo stato di Iampeggio 
di ciascuna cella del video si può abilitare o dis- 
abilitare e si può eliminare del tutto il lampeggio; 
l'inversione di tutto lo schermo, a qualsiasi veloci- 
tà, non è che un caso paticolare. Si opera su una 
mappa di 125 byte, ciascuno dei quali contiene 
gli 8 bit che descrivono lo stato normale (bit = 0) 
o lampeggiante (bit =1)di8 celle consecutive di 
memoria video; per l'8032, che ha 2000 caratteri, 
occorre una mappa di dimensione doppia ed 
occorre tenerne conto nell'allocazione del pro- 
gramma in memoria. 


Funzionamento del programma 


La routine principale, che può essere richiama- 
ta separatamente, è la FLASH. Essa legge una per 
volta le 125 celle della tabella TABLE, ne esamina 
il contenuto bit a bit, facendolo scorrere a destra, 
e, se il bit è posto a 1, inverte lo stato normale/in- 
verso del corrispondente carattere sullo schermo. 
Il test di fine viene fatto sul contenuto del punta- 
tore VIDEO, dopo il suo incremento, quando esso 
supera il limite della memoria video (che dipen- 
de dalla macchina). La routine FLASH è richiama- 
ta periodicamente dalla routine ROUT, aggan- 
ciata al vettore di interruzione della Macchina, 
ogni qualvolta il valore contenuto in DELAY coin- 
cide con il corretto numero di cicli di intemuzione. 
Per chi ancora non lo sapesse, i calcolatori Com- 
meodore dispongono di un integrato speciale 
(VIA) che è programmato, tra l'altro, per genera- 
re sessanta volte al secondo un segnale, sentito 
dal processore, che innesca le procedure di ge- 
stione della tastiera, aggiornamento della varia- 
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# EDCARDO PATRUCCO 1983 

# INIZIALIZZAZIONE SYS(30976) 
* SCAMBIO IRO SYS{ZA99E) 

#* MAPPA TABLE = 31107 

* Figura 3 - Il listato As- 
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290 VETTORE INTERRUZIONE 
$B6 PUNTERA” A TABLE 

+88 CONTERRA” STYID LsH 
$s3a CIMA STRINGHE 

34 FINE MEMORIA 

+3000 INIZIO PAGINA VIDEO 


IRO 
BASE 
VIDEO 
BOSTRI 
ENOMEM 
STVIO 
» 
# IMNIZIALIZZAZIONE E PROTEZIONE 
* 
INIT LOR 20 

STA DELA 

STA DELCHT 

AUTO-PROTEZIONE DEL PROGRAMMA 

LOA# >IMIT 

STAZ BOSTRI*+1 

STAZ ENDME +1 

LOA# <INIT 

STAZ BOSTRI 

STAZ ENMDMEM 
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MITCH SEI 

LOX IRO 

LO IRO+1 
LORA IROSAN 
STA IRO 

LDA IROSAV+1 
STA IRO+1 
ST IROSAV+1 
STX IRUSAY 
GLI 

RTS 
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EC) 
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# CONTROLLO NECESSITA” FLASH 

# ESEGUITO AD OGNI CICLO DI INTERRUZIONE 

* L'INDIRIZZO DI ROUT < CHE ERA IN IRQSAY > 
# E” STATO POSTO IN IRG:IRO+1 DA SHITCH 


ROUT DEC 
BNE 
LORA 
STA 


JSR 
FINE IMPE 


DELCHT 
FINE 
DELA 
DELCNT 
FLASH 
IRUSAN 


* 

* ROUTINE DI LAMPEGGIAMENTO VERA E PROPRIA 

# “«“ RICHIAMABILE SEPARATAMENTE > 

+ 

FLASH LOR# >TABLE 
STAZ BASE+1 
LOA# «TABLE 
STAZ BASE 
LOR# >STHID 
STAZ VIDEO+1 
LOA# «STVID 
STAZ VIDEO 


INIZIO MAPPA FLASH <H> 
INIZIO MAPPA FLASH «L>ò 
INIZIO MEMORIA VIDEO <H>) 


INIZIO MEMORIA VIDEO «L3 


LO # #0a 

LOK# £as 

LOR@Y BASE LEGGO MAPPA 8 CELLE VIDEO 

BEG NOFLSH SE =@ PROSEGUO DOPA 

LSRA CARRY <-- BIT @ 

PHA SALYO ACC. PER DOPO 

BCC DOPOFL 

LOA@Y VIDEO 

EOR# +80 

STR@Y VIDEO 
DOPOFL PLA 

INY 


DEX 
BNE ESAMINO PROSSIMO BIT 
NOFLSH INCZ PREPARO INDIRIZZO 


SE CARRY SETTATO 
INVERTO NORMALE/REVERSE 
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Seguito figura 3. 
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7969 DA a2 si BNE 
796B E6 B7 82 INCZ 
7960 RAS ES 83 NOZER LORZ 
796F .18 4 CLC 
7970 69 GS sa ADC# 
7972 SS Ba se STAZ 
7974 90 @2 87? BCC 
797 E6 B9 se INCZ 
7978 AS BI 89 NOCAR LOAZ 
797A C9 84 sa CMP# 
797C De D2 91 BNE 
797E 60 92 RTS 
797F 2F 93 IROSAYV .BY 
7980 79 994 .BY 
7981 Ga 95 DELAY . Br 
7982 GG 96 DELCHT .Ey 
79823 DA 97 TABLE .B 
7AR0G 98 *= 

99 »* 

100 »* 

101 * 

- 


SIMBOLO ESA — VALORE DECIMALE 


BASE 


AGE 2 
BOSTRI nasa 48 
DELAY 7981 SiIioS 
DELCHNT 7982 line 
DOPOFL 7962 3ia?4 
ENDMEM naz 52 
FINE 7930 3ia37 
FLASH 7940 Giada 
INIT 7900 aas7e 
IRO nasa 144 
IROSAY r97F Siiaz 
LOOP 7958 31064 
LOOPa 7950 zia5e 
NOCAR 7978 31096 
NOFLSH 7967 sia79 
NOZER 7960 siass 
ROUT 792F 31023 
STWIO sean 32768 
SWITCH 7914 30996 
TABLE 7983 3iia7 


VIDEO 


bile TI ed altre. L'indirizzo di queste procedure “di 
sistema” è riportato nel cosiddetto vettore di in- 
terruzione, ossia nelle due locazioni indicate con 
IRQ, IRQ + 1 nel listato Assembly (144 nei CBM 
“grandi”, 788 in VIC 20 e Commodore 64). 

Per agevolare chi ha già modificato queste 
locazioni per saltare alla propria, personale, routi- 
ne di interruzione, la quale per lo più termina con 
un salto a quelle di sistema (tastiera, ecc.), sono 
state riservate due celle IROSAV e IROSAV + 1 in 
coda al programma: in esse sarà posto il vecchio 
contenuto del vettore di interruzione, sia esso un 
indirizzo di programma utente o l'indirizzo origi- 
nale, caricato all'accensione della macchina; 
viceversa, il loro contenuto, inizializzato con l'indi- 
rizzo di partenza di ROUT, verrà messo nel vettore 
di intemuzione della macchina IR. La routine di 
inizializzazione INIT; oltre a proteggere il program- 
ma, richiama la SWITCH, la quale scambia i con- 
tenuti di IRQ e IROSAV. In questo modo ROUT 
rimane agganciata alle procedure di intermuzio- 
ne, di sistema o no; da notare che essa termina 
con un salto indiretto a IROSAV, che contiene il 
vecchio vettore di intemuzione. Quindi l'utente 
dovrà eseguire la prima volta INIT; in seguito 
ogni chiamata a SWITCH inserirà o disabiliterà il 
lampeggio di tutto lo schermo, senza alterare il 
regolare svolgersi delle procedure attivate ad 
ogni ciclo di interupt (ad esempio accensione 
delle lampadine sull'albero di Natale!). 


NOZER PROSSIMA CELLA MAPPA 
BASE+1 
VIDEO PREPARO INDIRIZZO 


$as 

VIDEO 

KHOCAR 

YIDEO+1 

MIDEO+1 

$84 =FINE VIDEO «#88 8032) 
LOOPA 


CROLUT 

>ROUT 

#00 INIZIALIZZ. CONTATORE 
soa CONTATORE 

+00 MAPPA FLASH 10600 CELLE 
*#+124 

RISERVATE 125 LOCAZIONI PER 1600 CELLE SCHERMO 

€ PER L84232 NE OCCORRE IL DOPPIO > 

: < DOVRANNO CONTENERE ALL'INIZIO TUTTI ZERI >d 

: < QUI OMESSI PER BREYITA” > 


PROSSIME S CELLE VIDEO 


N.B.: sono vietate le uscite anomale da questo 
stato di scambio di vettori col tasto di RUN/STOP, 
altrimenti occorre ricaricare in IROSAV l'indirizzo 
di ROUT. Logicamente, chi usa il registratore a 
cassette avrà dei problemi, in quanto il carica- 
mento di programmi o l'uso di file su cassetta 
richiede che il vettore di intemuzione contenga i 
valori di sistema: è consigliabile in tal caso un'ini- 
zializzazione di IRQ con l'indirizzo di ROUT ogni 
volta. 


Uso del programma 


Un esempio di utilizzo è dato all'interno del 
caricatore BASIC; con esso è possibile abilitare o 
disabilitare il lam io di qualunque cella sullo 
schermo di un 3032/4032 (per altre macchine 
occorreranno piccole modifiche sul valore di TA- 
BLE, ricavato dall'elenco dei simboli al fondo del 
listato Assembly, e sul numero di colonne dello 


schermo). 

Si tenga presente che il bit più significativo di una 
cella della mappa TABLE fa lampeggiare omeno 
la locazione video più a destra nel gruppo di 8. 
Spesso però è sufficiente far lampeggiare scritte 
di 8 * n caratteri: ad esempio, assegnata TABLE, la 
frase POKE TABLE, 255 : POKE TABLE + 1,255 rende 
lampeggianti i primi 16 caratteri del video. 

Si può variare la velocità di lampeggio, modifi- 
cando il valore di DELAY (inizializzato a 20 ha la 
velocità del cursore); valori più piccoli accelera- 
no la frequenza. È opportuno prima preparare la 
mappa e quindi abilitare il lampeggio con SYS 
(SWITCH), con l'indirizzo SWITCH ricavato dal lista- 
to Assembly; per disabilitario, verificare che il vi- 
deo sia in stato “NORMAL” prima di eseguire nuo- 
vamente la SYS (SWITCH): basta vedere se il con- 
tenuto di una locazione lampeggiante è mag- 
giore di 128. 


Eventuali modifiche per altre macchine 


Il programma può essere agevolmente riloca- 
to, se la zona $7900-79FF è occupata; vengono 
utilizzate le locazioni $B6-$B9 in pagina zero e 4 
byte in coda al programma, oltre alla mappa. La 
protezione, che può essere alterata, modifica le 
locazioni di fine memoria BASIC e cima delle strin- 
ghe, che sul 64 hanno indirizzi maggiori di 3. Le 
memorie video sui CBM piccoli iniziano in punti 
diversi; la mappa ha dimensione pari a numero 
celle video/8. a 
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creativo 


di Valerio Anselmo 


n aspetto forse finora poco noto dell'HP-75 è 
* che esso permette di creare programmi che 
a loro volta generano altri programmi con la ca- 
pacità di ripetere all'infinito il processo: program- 
mi che generano programmi che generano pro- 
grammi ecc. Una specie di realizzazione embrio- 
nale delle fantastiche macchine futuristiche che 
si riproducono autonomamente. 
Per riuscire a fare questo basta sfruttare appieno 
le capacità dell'HP-75 di accumulare in memoria 
‘ più archivi di vario tipo, di fondere due archivi con 
MERGE e di saper trasformare un archivio di un 
certo tipo in uno diverso. 

Mettiamo, ad esempio, in macchina il pro- 
grammino seguente chiamandolo “A”. Questo 
programma fa alcune cose abbastanza sempli- 
ci: ci fa sapere il proprio nome, ci dice quale 
programma ha cancellato dalla memoria (il pro- 
gramma “padre”), suona tre note trasmessegli 
dal “padre” come bagaglio genetico suo pro- 
prio, e infine, usando MERGE, genera un program- 
ma figlio”, avviandolo e di conseguenza elimi- 
nandosi per mano del “figlio” (listato 1). 

Una volta avviato, “A” genera “B” dandogli un 
patrimonio “genetico” leggermente diverso dal 
proprio, la diversità essendo stata per semplicità 
ridotta ai dati sempre diversi della riga 150 (la 
musichetta). “8” cancellerà “A” e genererà a sua 
volta “C”. “C” cancellerà “B” generando “D", e 
così via. 

Un ampliamento delle possibilità di generazione 
da programma di altri programmi si ha poi sfrut- 
tando la capacità della macchina di trasforma- 
re, come s'è detto, un archivio di un certo tipo in 
un archivio di tipo diverso. Le istruzioni che opera- 
no la trasformazione sono, come noto, TRAN- 
SFORM INTO BASIC, per trasformare un archivio di 
testo o un archivio LIF1 in un archivio BASIC, TRAN- 
SFORM INTO TEXT per trasformare un archivio BA- 
SIC o LIF1 in un archivio di testo, e infine TRAN- 
SFORM INTO LIF1 per trasformare un archivio BA- 
SIC o un archivio di testo in un archivio di inter- 
scambio, per lo scambio di informazioni tra l'HP- 


| 75 e altri computer. 


Il programma Logos che viene presentato in 
questo numero si serve di TRANSFORM per creare 
automaticamente un programmino che stam- 
perà un disegno o un marchio, quando sia avvia- 
to. Quest'ultimo programma “figlio” potrà essere 

richiamato con CALL da un programma princi- 
pale e in tal caso potrà servire ad esempio per 
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stampare il marchio di una ditta come intestazio- 
ne di una lettera tramite la stampante HP- 
829058. Chi fosse in possesso di un'altra stampan- 
te dovrà apportare le poche modifiche necessa- 
rie ai comandi che servono per far passare la 
stampante nel modo grafico. Quando si sarà ri- 
sposto a tutte le domande del programma ci 
troveremo ad avere in macchina un altro pro- 
gramma prodotto dal primo, già pronto per l'uso 
e già provato. Un programma ne avrà generato 
un altro e lo avrà generato tagliato su misura peri 
compiti che gli sono richiesti. 


È chiaro che queste capacità creative del com- 
puter unite alle sue possibilità di comunicazione 
con periferiche, strumenti di misura, servomotori, 
ecc., aprono vasti orizzonti alla fantasia del pro- 
grammatore: si pensi solo alla possibilità di ideare 
programmi che, in seguito all’insorgere o al muta- 
re di certe condizioni, generino una copia di se 
stessi più adatta ad affrontare i nuovi problemi, 
copia che verrà avviata dal programma “padre” 
(o madre?) e che cancellerà dalla memoria il 
programma vecchio, ormai inutile; programmi 
che ne creano altri capaci di generame a loro 
volta altri ancora con piccole variazioni casuali; 
programmi “padre” che generano programmi 
figlio” controllandone poi il funzionamento e 
modificandoli all'occorrenza. 

Logos parte da un programma per la creazio- 
ne di matrici di caratteri già presentato su Bit. Ne 
ripete all'incirca l'impostazione per quanto ri- 
guarda l'immissione dei “bit” (quadratini anneriti 
del disegno su carta millimetrata), anche se qua 
e là sièoperato qualche miglioramento. Nuova è 
invece la parte che scrive il programma ‘figlio” e 
lo prova (istruzioni 270-360). Esaminiamolo ora in 
dettaglio. 

Il programma è lungo 1.300 byte non inizializzato. 
Ciò significa che potrà essere registrato su una 
sola scheda magnetica. Le istruzioni di apertura 
sono classiche: dopo il titolo, nella riga 20ci sono i 
dimensionamenti, poi fino alla riga 80 le prime 
immissioni di dati. 

A(), il vettore che dovrà liere le somme dei 
bit per colonna per ogni striscia di otto punti in 


Figura 1 - Disegno rea- 
lizzato con Logos. 
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Listato 1 - Un esempio di 
programma che si ripro- 
duce. 
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verticale, è dimensionato per 94 numeri, tanti 


quante sono le colonne . E lo stesso di- 
mensionamento subisce la variabile alfanumeri- 
ca Z$ che rappresenterà visivamente con tanti 
trattini la serie di quadratini vuoti di una fila del 
disegno che devremo far riprodurre dalla stam- 
pante. 

La prima scelta è tra uso del solo visore dell'HP- 
75 o uso di uno schermo estero (un monitor o il 
televisore di casa) collegato tramite l'interfaccia 
HP-82163B. Se stiamo usando l'interfaccia video, 
battere TV dopo i due punti; se si usa solo il visore, 
Da un asterisco (*) sui due punti e premere 
La denominazione del disegno, che costituirà il 
nome di.un archivio, viene dimensionata ad otto 
caratteri per non causare un errore (riga 40). La 
riga 50 apre un archivio di testo con il nome del 
disegno, archivio che, una volta trasformato in 
BASIC, costituirà il nucleo del programma “figlio”. 
Con il nome “ZZZ2” apre poi un archivio BASIC per 
l'immissione da programma dei dati che serviran- 
no per la stampa del disegno. La scelta del nome 
“ZZZ2" è stata dettata dalla necessità di non in- 
terferire con altri programmi eventualmente pre- 
senti in memoria. Un archivio col nome “ZZ27" è 
statisticamente poco probabile; se però ve ne 
fosse uno in memoria, occomerà cambiargli no- 
me (con RENAME) prima dell'avvio di Logos. L'a- 
dozione di un archivio BASIC separato per i dati è 
stata dettata dal fatto che un archivio di testo 
nella trasformazione in BASIC avrebbe potuto 
causare errori di sintassi qualora fra i dati fossero 
state presenti le virgolette. | due programmi, quel- 
lo col nome del disegno e quello chiamato 
“ZZZ2". vemanno poi comunque fusi in uno alla 
tine e “ZZZZ” verrà cancellato dalla Memoria. 
La riga 60 memorizza il numero delle colonne del 
disegno, cioè il numero di colonne verticali lar- 
ghe un punto che costituiscono il disegno. Nel 
caso in cui si usi l'interfaccia video e si voglia 
avere sullo schermo una rappresentazione visiva 
immediata del disegno man mano che si forma, 
sarà bene limitare a 31 il numero massimo delle 
colonne. La riga 70, poi, richiede il numero di 
strisce orizzontali (costituite da 8 punti in verticale 
= 1 byte) che formano il disegno, e la riga 80 
chiede di quanto dovrà essere spostato a destra 
rispetto al margine sinistro della carta il disegno 
quando verrà stampato. 

Si sono esaurite così le operazioni preliminari. 


riprodurre è semplice, possiamo anche tentare di 
disegnare direttamente sullo schermo con i tasti 
“-”e"+”.Se invece si usa solo il visore dell'HP-75, 0 
ciò che dev'essere riprodotto è piuttosto com- 
plesso, occorrerà preparare in precedenza il di- 
segno su un foglio di carta quadrettata o millime- 
trata, annerendo un quadratino alla volta quan- 
do necessario. Avremo poi suddiviso la superficie 
interessata in strisce orizzontali alte otto punti, 
separandole l'una dall'altra con una riga, e avre- 
mo contato il numero di colonne verticali, che 
non dovranno essere più di 94. 

Il programma presenterà, come s'è detto, una 
riga di quadratini vuoti per volta, in attesa dell'im- 
missione. Un quadratino vuoto sarà rappresenta- 
to da un meno (—), mentre un quadratino pieno 
(0 annerito nel disegno) dovrà essere rappresen- 
tato da un più (+, sottolineato sul visore, in nega- 
tivo sullo schermo). Per facilitare l'immissione del- 
la riga si è assegnato al tasto TAB le stesse funzioni 
di RTN. TAB si trova vicino ai tasti “—" e "+, e potrà 
essere premuto più facilmente di RTN. La riga 90 
provvede alla ridefinizione del suddetto tasto. Per 
ottenere il simbolo indicato (la lettera greca 
“tau” sottolineata) premere SHIFT I/R e poi TAB. 
L'uso della forma abbreviata dei comandi (come 
in questo caso) è stata imposta dalla necessità di 
mantenere il programma entro i limiti dei 1.300 
byte, per poterlo poi registrare su una sola schedi- 
na magnetica. 

Nella riga 100 si porta la larghezza della riga di 
stampa all'infinito, per evitare che un disegno 
durante la stampa possa poi venire spezzato in 
due nel senso della larghezza. Si riporta poi la 
stampante nelle condizioni iniziali e si stabilisce 
un'interlinea adatta a far stampare senza soluzio- 
ne di continuità le strisce di 8 punti l'una sotto 
l'altra (9 righe per pollice). Il numerino “27” sottoli- 
neato nella riga 100 indica il carattere di fuga 
(‘escape’) ottenibile con CTL BACK. 

La riga 110 serve a creare la rappresentazione 
visiva della fila di quadratini vuoti che verrà pre- 
sentata come suggerimento per l'immissione. 

Nella riga successiva (120) si azzera la variabile 
numerica L, rappresentante la lunghezza della 
scritta più lunga che viene aggiunta al disegno, e 
si avvia la prima parte di un'iterazione FOR... NEXT 
che conta il numero di strisce orizzontali. La varia- 
bile numerica B darà di volta in volta il numero di 
riga al quale andrà registrata la stringa dei dati in 


! LOGOS 
DIM AC94) ,A$[100], B$[135], Z$[94] 


DELAY O @ INPUT "display is na 38586 


D$="" & INPUT "nome disegno: "3D$[1,81] 
ASSIGN # 1 TO D$,TEXT @ ASSIGN # 2 TO "Zzzz" 


INPUT "num. colonne (max 94): "3C 
INPUT "num. strisce orizz.: ";S 
INPUT "spostam. dal margine: ";M- 
DEF KEY ?1”,CHR$(13) 


PWIDTH INF @ PRINT "&Et®&19D" 


Z$="" @ FOR A=1 TO C ® Z$=Z$&"-" € NEXT A 


L=0 @® FOR A=1 TO S @ B=70+AX10 


DISPLAY IS S$ @ MARGIN C ® FOR I=1 TO C ® A(I)=0 @® NEXT I 


DEF KEY "+’," (+’; @ FOR I=si TO 8 


IF S$="%" THEN DISP "riga";I;: "della striscia";A @ WAIT 1 


BEEP 500 ® INPUT "",Z%$;A$ 


FOR J=1 TO C ® IF A$CJ,J]="+* THEN A(J)=A(I)+2%(8-I) 


NEXT J @ NEXT I 


B$="%Xb"&STR$(C)&"G" 
FOR I=1 TO C @ B$=B$&CHR$(A{I)) @ NEXT I @ B$=Bs&" " 

DISPLAY IS % @ MARGIN 33 @ DISP "scritta ("3A;5"): "; 

DEF KEY *+","+"; @ DEF KEY "t*,”""“P>"; @ PUT ?"+” 3 

BEEP 750 @ INPUT ""; F$ @ B$=B$&F% @ IF LEN(F$%)>L THEN L=LEN(F%) 


PRINT B$;" 


striscia";A @ PRINT ® PRINT @ PRINT @ PRINT @ PRINT 


INPUT "va bene? ","s"; C$ @ IF C$#"s" THEN 130 

PRINT # 2,B ; B$ @ NEXT A @ DISPLAY IS S$ 

PRINT # 1,10 3 "DIM A$L"&STR$(5+C+LEN(STR$(C))+L)&"]" 

PRINT # 1,20 3 "PWIDTH INF @ PRINT "&#E&&19D? " 

IF M=0 THEN F$="PRINT A%" ELSE F$%="PRINT TAB ("&STR$(M+1)&");A$" 


IF S=1 THEN PRINT # 1,50 ; "READ A$ 
PRINT # 1,40 ; "FOR I=1 TO "&STR$(S) 


PRINT # 1,50 ; "READ A$ @ "&F$ 
PRINT # 1,60 3 “NEXT I" 
PRINT # 1,70 ; "PRINT ?&E?" 


@ "&F$ @ GOTO 340 


TRANSFORM D$ INTO BASIC @ EDIT D$ @ MERGE "ZZZ7Z" @ RENUMBER @ PURGE "ZZZ7" 
CALL D$ @ DEF KEY "r”,”1”°; @® DEF KEY ">, >? ®.DISP 


"ZZZZ". Tale numero parte da 80 in quanto dovrà 
essere superiore al numero dell'ultima istruzione 
del programma col nome del disegno quando 
“ZZZZ" sarà fuso con questo. 

Per poterci accorgere ad orecchio che si è battu- 
to l'ultimo carattere della riga si fissa il margine 
alla lunghezza della stringa suggerita per l'immis- 
sione (riga 130). Intal modo, anche senza alzarla 
testa dal foglio, avremo un controllo dell'immis- 
sione quanto mai utile. Nella stessa riga 130 viene 
azzerata la porzione di vettore che interessa. L'i- 
struzione DISPLAY IS S$ riattiva il video esterno 
quando si devono immettere le strisce successive. 
Si definisce ora il tasto “+” come “(+" (ottenibile 
con SHIFT I/R SHIFT I/R SHIFT I/R SHIFTCLR) e si inizia 
la richiesta di immissione dei “bit” del disegno, 
effettuabile tramite i tasti “—" (meno) e “+’”(più), 
come s'è detto prima. Per poter disporre di tutta la 
lunghezza della riga di visualizzazione quando si 
opera l'immissione, si visualizza per un secondo 
(se l'uscita è sul solo visore) il numero di riga e 
quello della striscia (riga 150) e quindi si presenta 
separatamente la fila dei “—, che potranno arri- 
vare così fino a 94. Prima di far questo, però, si 
segnala con un segnale acustico basso (500 Hz) 
la possibilità di iniziare ad immettere i dati, e ciò 
sempre per aiutare l'operatore che se ne sta pro- 
babilmente chinato sul foglio di carta millimetra- 
ta con una grossa lente in mano cercando di non 
perdere il segno di dove è arrivato. Quando sente 
il ‘beep’ basso, sa che può partire con l'immissio- 
ne dei più (+) e dei meno (—), che diventerà 
automatica dopo un po'. 


Una volta completata ed immessa la “stringa” 
di “—" e “+” rappresentante la fila di quadratini 
vuoti e pieni, la riga 170 ne calcola ilvalorecome 
“bit” e lo va ad aggiungere ai valori già presenti 
nel vettore A(). 

Immesse tutte e otto le file che costituiscono una 
striscia, i dati accumulati in A() vengono trasfor- 
mati in un comando che potrà far passare la 
stampante nel modo grafico (righe 190 e 200). 

Dopo ogni striscia di disegno si possono far stam- 
pare delle scritte, che saranno posizionate ad 
uno spazio dal disegno. La variabile che accette- 
rà la scritta (F$) non è stata dimensionata, per cui 
potrà accogliere solo fino a 32 caratteri. Se supe- 
reremo tale lunghezza, però, non succederà 
niente di male: il computer ce lo segnalerà e 
ripresenterà la scritta per la correzione. 

Nella riga 210 un'istruzione MARGIN farà sì che 
venga segnalata acusticamente con un “beep” 
la battuta del 32° carattere. Viene quindi visualiz- 
zato, solo sul visore dell'HP-75 e non sul video, il 
messaggio di sollecitazione (formato dalla paro- 
la “scritta”, con il numero d'ordine della striscia tra 
parentesi), seguito da due virgolette con il curso- 
re di inserimento sulla seconda virgoletta. Que- 
st'artificio permette di immettere, oltre a degli 
spazi iniziali, anche le virgole, che altrimenti da- 
rebbero luogo ad un errore essendo considerate 


dal computer come separatori fra più “input” 


successivi. La riga 220 riporta il tasto “+” al suo 
giusto valore e definisce un “tasto” non accessibi- 
le da tastiera (quello corrispondente al carattere 
numero 255) nel modo seguente. Si dà al suddet- 
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Listato 3 - Le variazioni 
per -la stampante MX- 
80. 


40 D$="" @ INPUT "nome : ":D$[1,8] 
100 PWIDTH INF @® PRINT "L@LA"&CHR$ (8) 


190 B$="lik"&CHR$ (C) &"a" 


280 PRINT # 1,20 3 
340 PRINT # 1,70 ; 


"PRINT 


to “tasto” il valore di due virgolette (“ ‘) seguite 
dai comandi di cambiamento del cursore (ca- 
rattere numero 136, equivalente alla pressione 
del tasto I/R) e spostamento del cursore a sinistra 
(carattere numero 134, equivalente alla pressio- 
ne del tasto con la freccia a sinistra). | contenuti 
del “tasto” numero 255 vengono resi attivi dall'i- 
struzione PUT posta immediatamente prima di un 
INPUT con la prima parte (il “messaggio di solleci- 
tazione”) nulla. Tra parentesi, ricordiamo che, per 
poter scrivere il carattere numero 255, occorre 
prima definire un tasto (ad esempio con DEF KEY 
“#", CHR$(168)&CHR$(255);) ed usarlo poi per 
immettere il carattere nel programma. 

Un segnale acustico un po' più acuto (750 Hz) 


‘avverte l'operatore che è ora di immettere la 


scritta (riga 230). Dopo l'immissione della scritta 
(che potrà anche essere nulla), e l'aggiunta di 
questa alla variabile B$ contenente già i coman- 
di per la stampa della striscia interessata e uno 
spazio vuoto, viene effettuato un confronto atto a 
memorizzare nella variabile L la lunghezza della 
scritta più lunga fra quante vengono immesse. 
Viene quindi subito effettuata una prova di stam- 
pa della suddetta striscia (riga 240), seguita da 
otto spazi e dall'indicazione del numero d'ordine 
della striscia stessa, ciò al fine di permettere una 
agevole identificazione di quanto viene stampa- 
to, che sarà stato portato nel frattempo oltre il 
bordo metallico del fermacarta della stampante 
mediante cinque PRINT consecutivi. 

La domanda che segue, “va bene?” suggeri- 
sce già una risposta “s” per “sì” (riga 250). Se il 
disegno vabene, basterà premere RTIN (TAB). Se 
la risposta sarà stata diversa da quella suggerita 
(come quando si immette “n” per “no”), il pro- 
gramma torna a chiedere i dati per quella stri- 
scia, ricominciando dalla riga 130. Se la risposta 
sarà invece stata ‘“s”, la stringa B$ (contenente il 
comando di passaggio nel modo grafico, i carat- 
teri corrispondenti ai vari “byte” per il comando 
della testina, lo spazio vuoto e l'eventuale scritta 
aggiunta) viene registrata nell'archivio BASIC 
“ZZZ2"” mediante il “canale” numero 2, e si conti- 
nua l'iterazione iniziata alla riga 110, chiudendo il 
ciclo con l'istruzione NEXT. Usciti dall'iterazione si 
riattiva per prima cosa il video esterno, se colle- 


to. 

ao nell'archivio “ZZZ2" sono stati accumula- 
ti tutti i dati necessari, si passa alla seconda parte 
del programma, quella che “scriverà” nell'archi- 
vio di testo il programma “figlio”. 

Anche questo programma “figlio” sarà di tipo 
tradizionale. Si inizia con i dimensionamenti: la 
riga 270 di Logos attraverso il “canale” numero 1 
scrive infatti nella riga 10 dell'archivio ditesto che 
porta il nome del disegno il dimensionamento 
della variabile A$ che servirà a leggere le varie 
stringhe corrispondenti alle strisce orizzontali suc- 
cessive del disegno. La lunghezza di tali strisce è 
determinata dal comando di passaggio al modo 
grafico (i caratteri “escape”, Vga vis e, dopo il 
numero dei byte, “G") e lo spazio vuoto aggiunto 
(nella riga 200) dopo i caratteri componenti il 


"PWIDTH INF @ PRINT ”?@&A”° &CHR$ (8) " "ie ) 
ue” "n "i 


disegno (in totale 5 caratteri), il numero di carat- 
teri che corrispondono ai “byte” della striscia (la 
variabile C), la lunghezza della stessa variabileC 
considerata come “stringa” (1 o 2 caratteri) e 
infine la lunghezza della scritta più lunga fra 
quelle aggiunte dopo le varie strisce componenti 
il disegno. 
La seconda delle righe che vengono scritte nel- 
l'archivio di testo e che porterà ilnumero 20 non è 
altro che una duplicazione della riga 100 di Lo- 
gos. La successiva riga 290 di Logos prepara la 
scrittura della riga 50 nel programma ‘figlio”. Nel- 
la stampa della striscia verrà usata l'istruzione TAB 
solo se lo spostamento dal margine sinistro per la 
stampa del disegno è diverso da zero. La riga 
successiva farà scegliere per il programma ‘Yfi- 
glio” una versione semplificata della stampa gra- 
fica (senza iterazione) se non vi è più di una 
striscia. In caso contrario verrà usata la versione 
più completa (righe 310-330). Con la riga 340 si 
scrive nel programma ‘figlio’ un comando che 
riporta la stampante nelle condizioni iniziali, con 
spaziatura normale (6 righe per pollice). la 
Completata la compilazione del nucleo del 
programma “figlio”, per ora ancora nella forma di 
archivio di testo privo di vita (una semplice suc- 
cessione di caratteri senza alcun vero significato 
per il computer), nella riga 350 si opera il sortilegio 
trasformando questo archivio di testo in un pro- 
gramma in BASIC, in cui le sequenze di caratteri 
sono ora considerate come “parole” con un pre- 
ciso significato per la macchina, mentre inumeri 
delle righe rappresentano la successione tempo- 
rale in cui la sequenza di istruzioni dev'essere 
eseguita. A questo nucleo di programma si ag- 
giunge con MERGE la porzione “ZZZ2" già prece- 
dentemente in BASIC e si rinumera il tutto, otte- 
nmendo così un programmino pulito e perfetta- 
mente autonomo per la stampa del disegno da 
noi preparato. 
Dopo aver cancellato “ZZZZ", viene poi immedia- 
tamente effettuata (con CALL nella riga 360) una 
prova di stampa, dopodiché ridefiniti i 
tasti TAB e CHR$(255) e si termina cancellando il 
visore. Meri 
Come si è detto, il programma funziona così co- 
m'è con la stampante HP 829058. Chi fosse in 
possesso di una stampante di tipo diverso usan- 
dola tramite il convertitore HP-IL dovrà apportare 
alcune modifiche al programma per adattarlo |». 
alla propria stampante. Ad esempio, con una 
stampante Epson MX-80 TYPE IIl si dovranno modi- 
ficare le righe seguenti per poter mantenere il 
programma entro i 1.300 byte e ottenere lo stesso 
CORO che si otterrebbe suuna HP 82905B(lista- 3 


0 3). Resor 
E per finire un avvertimento. Attenzione che, se si. 
interrompe Logos durante l'immissione dei “bit” 
grafici, il tasto “+” resterà definito per rappresen- 
tare il carattere numero 171 (+ sul visore). Sarà —— 
allora poi necessario ridefinirio a mano, riportan- 
dolo al suo valore iniziale con DEF KEY CHR$(43), 


CHR$(43); 0 cancellando l'archivio KEYS con PUR- 
GE KEYS. ‘> CA 


sesti LX SPECTRUM dea, 


Poke-Man 


Listato 1 - Il listato del 
gioco per lo Spectrum. 


di Lorenzo Covini 


a uesto gioco trae ispirazione dal quasi omoni- 
mo gioco da bar; scritto interamente in BA- 
SIC, ha Ò possibilità di due velocità. 

Lo schermo si presenta diviso orizzontalmente in 
due parti distinte. In alto, dove inizialmente com- 
pare il giallo, “Poke-Man"” sipresenta con i puntini 
da mangiare e i tre piccoli fantasmi nemici. In 
basso, dove i fantasmi non possono mai scende- 
re, ci sono altri prelibati puntini da divorare, ma 
anche pareti che, diversamente da quelle supe- 
riori, sono elettrizzate: andarvi a sbattere contro 
sarà fatale. 

Nel caso vengano mangiati tutti i puntini, e lo 
schermo completato, si sommerà al punteggio 
un bonus inversamente proporzionale al tempo 
impiegato e si potrà ricominciare da capo. 
Un'ulteriore difficoltà è data dal non mangiare i 
puntini: se infatti Poke-Man, per qualsiasi motivo, 
non continua a mangiare, il punteggio decresce 
inesorabilmente. È per questo che, iniziando, si 
parte da 50 punti: infatti se si arriva a zero, il gioco 
è concluso. 


Descrizione del programma 


7-8 Presentazione. 

9-46 Istruzioni - Inizio del gioco: la linea 11 e la 
prima parte della 13 definiscono la stringa $$, che 
ne stampata dalla subroutine delle linee 44- 


6. 
47 Inizializzazione della variabile Hi, che conterrà 
il record. 
50-63 Definizioni caratteri grafici. 
99 Inizializzazione variabile P (= punti). 
100-404 Richiesta e definizione della velocità 
della partita. 
102-302 Costruzione del labirinto. 
305-420 Inizializzazione delle principali variabili 
del programma. 
430 Se il Poke-Man si trova nella metà superiore 
dello schermo, il programma scende alle linee 
5430-5450, che leggono i fattori di incremento 
delle coordinate dei due fantasmi dalle linee di 
DATA in fondo al listato, li sommano alle coordi- 
nate precedenti, cancellano i fantasmi dalla 
vecchia posizione e li stampano alla nuova. In 
più permettono l'accesso ad una seconda su- 
broutine (linee 3200-3220), che muove casual- 
mente il terzo fantasma, controllando (linea 
3210) che non finisca sui muri o che non scenda 
nella parte inferiore del labirinto. 
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450-500 Lettura della tastiera e aggiomamento 
della posizione di Poke-Man. 

505 Il computer controlla che Poke-Man non si 
sovrapponga ai muri. 

535 Si controlla che il punteggio non sia sceso 
sotto zero. 

550 Se Poke-Man sta mangiando un puntino, il 
punteggio sale, aumenta di un punto il contatore 
dei puntini mangiati e viene emesso un suono. 
8560-41 Vengono stampati Poke-Man e i fantasmi, 
se Poke-Man è nel labirinto superiore. 

570 Se un fantasma si è sovrapposto a Poke-Man, 
il programma va alle linee 5510-5530, che accer- 
tano che sia un fantasma e non uno dei sosia che 
questi si lasciano dietro. 

580 Nel caso il fantasma si trovi nel labirinto infe- 
riore, e la velocità scelta sia la minore, un apposi- 
to ciclo FOR...NEXT rallenta l'esecuzione del pro- 
gramma. 

600 Vengono aggiornate alcune variabili, stam- 
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FOR us0 TO I 
11,13; FLASH 1; 
BEEP .,0035,25: 
=p+w+22 
3129 FOR a=2 TO SOO: 
: RESTORE 2000: LET 


BEEP 1,30. FOR a=0 
PRINT AT x.y 
NEXT a 
PRINT AT 12,0; 
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pato il punteggio e il programma tormaalia linea Seguito listato 1. 
430. 


3000-3020 Routine, nel caso Poke-Man venga 
mangiato da un fantasma. 

3050-3070 Routine, nel caso il punteggio scenda 
sotto zero. 

3100-3120 Routine per il BONUS STAGE, nel caso 
lo schermo venga completato. 

3150-3495 Routine nel caso il Poke-Man venga 
fulminato. 

3200 Vedi linea 5435. 

4100-4440 Controlla se Poke-Man è finito contro 
un muro normale o elettrizzato, nel qual caso la 
partita finisce (vedi linea 505). 

5430-5450 Vedi linea 570. 

9000-9004 Linee di DATA, che contengono le 
istruzioni per i movimenti dei primi due fantasmi. 
Possono essere cambiate a piacere, ma devono 
sempre terminare con 100, 0,0, 0, per informare il 
computer di eseguire il RESTORE. 
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Regata 


Grazie all'avventura di Azzurra all’America’s Cup, la vela è diventata improvvisamente uno 
sport molto conosciuto: anche se questo programma è stato concepito quando la più diffusa 
attività agonistica era la caccia ai dinosauri (e quella più diffusa tra i dinosauri la caccia ai 
bipedi spelacchiati), è certamente questo il momento più opportuno per la sua pubblicazione. 


di Claudio Lenzi 


D ue componenti sono essenziali per ben figu- 
rare in regata: la prima è la preparazione 
fisica e tecnica dell'equipaggio e la messa a 
punto della barca per farla rendere al massimo 
nelle varie andature e nelle manovre, la seconda 
è la tattica ossia la scelta tempestiva della rotta 


da seguire e del momento in cui effettuare le 


manovre, in funzione delle mutevoli condizioni 
meteo e della posizione relativa alle altre barche; 
è proprio per esercitarsi su quest'ultimo aspetto 
della competizione che è stato scritto questo pro- 
gramma. 

In una regata di triangolo olimpico si percorrono 
tre lati controvento ed altrettanti ad andatura 
portante; in questi ultimi però, la tattica è di mino- 
re importanza, in quanto ci si dirige direttamente 


verso la boa, perciò il percorso di regata è stato 


volutamente limitato al solo lato controvento. 
Fatta l'ipotesi che le barche siano tutte sostan- 
zialmente uguali, la velocità di navigazione di- 
pende esclusivamente dall'andatura e cioè dal- 
l'angolo tra la rotta e la direzione del vento; è 
quindi stata calcolata una approssimazione 
analitica della polare sperimentale di velocità 
relativa a una barca a bulbo. 

Dalla figura 1 si vede come non sia possibile 
dirigersi direttamente verso la boa al vento, in 
quanto le vele, fileggiando, non darebbero alcu- 
na propulsione: è necessario quindi bolinare, os- 
sia procedere a zig-zag, scegliendo di dirigersi 
ora a dritta ora a sinistra; non esiste inoltre un 
angolo ideale per risalire il vento, ma si deve di 
momento in momento scegliere se navigare di 
bolina stretta (40/45 o 320/315) compiendo un 
percorso breve, ma navigando lentamente, op- 
pure di bolina larga (45/50 0 315/310) navigan- 
do più veloci su un percorso più lungo. 


L'uso del programma 


Dato il RUN, a richiesta, viene plottata la polare 
di velocità e stampata la tabella con l'assegna- 
zione della tastiera, segue l'INPUT del numero dei 
timonieri (fino a sette); digitando 0 viene effet- 
tuata una breve regata dimostrativa con una 


Figura 1 - La stampa ottenuta dall'esecuzione del 
programma Regata. 


sola barca controllata dal calcolatore. 

A questo punto il calcolatore chiede la lunghez- 
za del percorso di regata (tra 0.5 e 2 miglia); 
consiglio caldamente le 2 miglia perché in que- 
sto modo le regate risultano più appassionanti e 
didatticamente più valide. 

Viene ora disegnata la linea di partenza e la 
direzione del vento. 

Le barche e i timonieri sono ora identificati con 
numeri da uno a sette, le barche sono sulla linea 
di partenza, in posizione da definire, già orientate 
a 450315 gradi, a seconda quale direzione è più 


2 
2 
4 


2 
3 
4 


conveniente. 

Da adesso in poi sono disponibili vari comandi, 
come si vede in figura 1; con le frecce verticali è 
possibile selezionare il timoniere interessato: 

(T) per assegnare un nome al timoniere (al massi- 
mo quattordici caratteri), invece del numero; 
automaticamente il nome della barca sarà il pri- 
mo carattere digitato, ma in caso di nomi con 
iniziale uguale si può cambiarlo con 

(B) assegnando così alla barca un carattere 
qualsiasi. 

È possibile, ovviamente, modificare la rotta; i co- 
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a 


1 # SHARP 
2 1 TIRONE 
3 C CESARE RAGAZZI 


ANN- 


*$% CLASSIFICA DOPO LA 


# SHARP 

C CESARE RAGAZZI 
T TIRONE 

N 


UN D- 
WQaN- 
ANN- 
ANWw- 
YAN 


2 
37 TR 
4 N NAPOLEONE 


mandi disponibili a tale scopo sono: 

e “(* mura a dritta (angolo al vento tra 30 e 180); 
e “)* mura a sinistra (angolo al vento tra 320 e 
180); 

e "=" indica al calcolatore che si vuole impostare 
una nuova rotta (angolo col vento); 

@0...9 per porre l'angolo al vento tra 40 e 49 gradi; 
e “L“ per far impostare la rotta dal computer di 
bordo 


L'ultima operazione prima della partenza è il po- 
sizionamento della barca sulla linea, da eseguirsi 

il tasto P: se la direzione del vento è 
inclinata rispetto alla linea di partenza, ad esem- 
pio a sinistra, chi parte da questa estremità è 


*%% CLASSIFICA DOPO LA 6 PROVA 


! # SHARP 1 
2 C CESARE RAGAZZI R 
3 T TIRONE 2 
4 N NAPOLEONE 3 


avvantaggiato, ma attenzione: un salto di vento 
è sempre in agguato. 

Solo quando tutti i concorrenti sono in posizio- 
ne si può partire premendo SPACE; la barca con- 
trollata dal calcolatore (già, anche il PC-1500 ha 
la sua barca che gareggia contro di noi ad armi 
pari e spesso dà del filo da torcere anche ai 
timonieri più smaliziati) sceglie una posizione tra 
quelle libere e la rotta più conveniente. 
Durante il calcolo ed il plottaggio della nuova 
posizione di ogni barca appare sul display, sia la 
rotta scelta dal computer, in modo che ognuno 
possa confrontaria con la propria, sia la variazio- 
ne di direzione che il vento subirà nel tumo suc- 
cessivo, per aver modo di decidere per tempo la 
tattica da seguire. ° 
Il plottaggio del vento a vettori compone una 
curva continua ed ogni tre tumi di gioco viene 
tracciato un allineamento perpendicolare al 
vento, in modo da rendersi conto di come siano 
modificate le posizioni dei concorrenti. 

Nei tumi successivi non ha più importanza l'ordi- 
ne in cui i timonieri immettono le eventuali varia- 
zioni di rotta; è anche possibile, prima di premere 
lo SPACE per cominciare il tumo successivo, tor- 


KKKKKKKKKXK 
K K 
X REGATA X 
K K 
% by X 
XC. LENZIX 
X Milano X% 
 KKKKAKAKRKARAAAK 


BEEXxP:CSIZE 6: 
COLOR 1:LPRINT 
"REGATA"; : TEXT 
:LPRINT :CQLOR 
2:LPRINT “CLAU 
DIO LENZI MI) 
pese 2 
s INPUT "Polare 
bedliocità. PR 
$: IF LEFT$ CR$ 
1)<>"N"“GBSUB 
PU 
: INPUT "Assegna 
zione tastiera 
eeeh 
LEFT$ CR$;, 1)9<> 
"N"GOSUB "AT 
"GOT0:-."S 
:REM 
sREM VELOCITA" 
BARCA 
sREM 
: "UB"R=ABS RCT) 
: IF R<420STOP 
FFERXSOLET UCT 
)=1U$TC.64-1E- 
4XK(R-1090)02): 
RETURN 
s IPSRII1SEET:UC 
T)I=IUXC(RX6. 783 
E=3#:;29): 
RETURN 


LE REL4SLET UL: 


140: 


142: 
144: 


146: 
148: 


150: 


| aa 


154: 
156: 


158: 


160: 
162: 


164: 


166: 
168: 


T)=IUXC.85+1C. 
26%. 26- 1E-4XCR 
-132)022)): 
RETURN 
UCT)=IUXC1.6-I 
(. 64%. 64-1E-4X% 
(R-180)22)): 
RETURN 

REM 

REM CALCOLO 
ROTTA 

REM 
"CR"DY=Y(T)-39 
2:1F DY=BLET D 
We. 
DX=XCT)-79:D=7 
/I(DXA2+DY02): 
IF D>IGOTO "RE 
i 

RB=ATN (DX/DY) 
: IF DY>BLET RB 
=RB-189XSGN DX 
RB=RB+ASN D-U 
DX=XCT)-138:D= 
19/4 (DX02+PYn2 
):IF D>IGOTO " 
RET 

RG=ATN (DX/DY) 
: IF DY>QLET RG 
=RG-182XSGN DX 
RG=RG-ASN P-U 
IF RB>-3BAND R 
G<3BGOT0 "B 

IF RB>)-40AND R 
GK4BLET RCT)=C 
45+PC(T))XSGN € 
183-XCT)) 

IF RB>BSLET RC 
T)=RB: RETURN 
IF RG>BSAND RB 
>-4BLET RCT)=B 
S: RETURN 


Figura 2 - Il listato del 
programma che permet- 
te di simulare una rega- 
ta. 
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1720: 
172: 


1724: 
1726: 
178: 


180: 
182: 


184: 


186: 
188: 
190: 


+92: 
194: 


196: 


198: 
200: 
202: 
204: 
206: 


208 


IF RG<BDLET Re 
T)=RG:RETURN 
IF RB<BDAND RG 
<4BLET RCAT)I=BD 
:RETURN 

IF V<BGOTO "A 
REM 

REM ARRIVO IN 
BOA 

REM 

IF RB>-40LET R 
(T)=45+PCT): 
RETURN 

IF RB>BDLET Re 
T)=RB:RETURN 
RiT)=BD: RETURN 
REM 

REM ARRIVO IN 
GIURIA 

REM 

“A"IF RG<KA4BLET 
RCTI=-45-PCT): 
RETURN 

IF RG<KBSLET RX 
T)=RG:RETURN 
R(T)=BS: RETURN 
REM 

REM BOLINA 

REM 
“B"DXR=XCT)-XD: 
DU=UVM-U: DB=(RB 
+R6G)72 


IF ABS DU<ABS 


CDX7 153LET" REG 
)=(45+PCT))X 
SGN -DX: RETURN 


:RC0T)=(45+ABS D 


U/6)XSGN DU: 
RETURN 

REM 

REM XXX  LDOP 
PRINCIPALE XX 


216:REM 
218: "“P"BD=-45=U7:C2 


. ST. SKSGN VU): B 
S=45-U/(2.5+.5 
XSGN U):CSIZE 
1 


:WAIT BD:F=B:FOR 


T=0TO N: IF FRC 
T)=-10R FRCT)= 
LE6OTO 7" 


si F=F+1:; FF-//FB6R 


=260SUB "CR". 
GOSUB "UB 


;"Q"NEXT T:1F F 


=BG60T0 "SC 


» TF FRC00)<2G0T0 


pal 


: IF N=BAND YCd) 


ELET P=15GOT 
"PAR 


: IF C(F=1AND FRC 


d)=2)0R CO=1 

LET CO=9:GOTO 
“NAU 

REM 

REM INPUT DATI 
TIMONIERI 

REM 

af i n 

NLET T=1 


:»'‘'USCL'SRTE-. ERE 


T)=-10R FRCTd)= 
GOT» 


: USING "+###".E 


=D: IF FRCT)=2 
QND L=BLET F=1 
.ON P+1G0T0 "E 
e PD 


:R=RCT): IF R<D 


LET R=R+360 
IF P=0GOTO "E 
REM 


» REM DISPLAY IN 
REGATA 
REM 
‘D'CURSOR Bd. 
GPRINT "3C493C 
007C545C027C08 
28027F42007C44 
2090"; PRINT U 
JI; :GPRINT "200 
2052? 
+ CURSOR (€18-LEN 
@$(T+1)):PRINT 
USING "####";@ 
$(T+1);. IF F=0 
AND RCAT)I<=B 
PRINT R;" Ù 
: CURSOR 23 
s IF F=QAND RAT) 
SOPRINT " ù 
sR:CURSOR 19 
«IF F=1PRINT_ " 
KAKKKKK": GOTO 
"INK 
» IF F=B@AND FRCT 
)=2PRINT "Kkk 
GOTO "INK 
REM 
REM DISPLAY IN 
PREPARTENZA 
REM 
(E"X=CXCT)-78) 
/6 
‘PRINT U$+U$;: 
CURSOR 18: 
PRINT STR$ X;: 
CURSOR. 22: 1F°F 
ROT)=BPRINT 
USING "####";R 


e) 

: IF FRCT)=2 
PRINT" *XkKk"; 
:CURSOR 2.:PRINT 


@$(T+1): CURSOR 
14:PRINT @$CT+ 
P13 


» ‘ENT"CURSOR 21 


PRINT "=: 


»s REM 
:REM INKEY$ E I 


NPUT RELATIVI 


s REM 
e “INK BEEP 1] 
:"I"WN$=INKEY$ 


K=ASC W$:1F k= 
MPGOTO "I 


: IF K=4ILET RCT 


)=45+PCT): 
GOSUB "UB":FR( 
T)=B:GOTO "U 


: IF K=4BLET RAT 


)=-45-PC(T): 
GOSUB "UB":FRC 
T)=B:COTO "U 


* SU"IF.K=10LET 


» IF FRCET)=-10R 


PRETI=1G60TP= S 


Ù 
:"GIU"IF K=11 


GOTO "£ 


: IF K=32AND P=1 


CLS :G0T0 “NAÙU 


: IF K=26AND FRC 


TI<260SUB' "Ck" 
-SBSUB! *"UB' FR 
(T)=2:G0T70 "U 
IF K=61G0T0 "P 
R 


: IF K>472AND K<5 


BLET K=4B+UVAL 
W$:GOTO "PRI 


: IF K=86LET MP= 


MP-S0#IF.4MP<-2 
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SLET :MP==75 


s IF K=86 


GLCURSOR XL, M 
st 


+ IP K#820E5S | 


PRINT @$CT+1); 
:CURSOR 120: 
INPUT ""URET ? 
":54$: IF*LEFI$ 
(W$, 1)9="S"CLS 
‘GOTO "RET 


s IF K=84CLS : 


PRINT "Nome ti 
m. "3@$(T+1) 
:CURSOR 120: 
INPUT @$CT+1): 
@$(T+11)=LEFT$ 
(@$(T+1);, 1) 


N" IF- K=B86CLS 


:PRINT "Nome b 
arca @";@$CT+1 
1)>:CURSOR 21: 
INPUT @$£CT+11) 
s IF LEN @$CT+1 
1)>IGO0TO "N 


IF K=80AND P=0 


GOSUB "PP". 
GOTO "U 


:IF K=32AND P=0 


324: 
326: 
328: 
330: 
332: 


FOR I=1TO N: IF 
@$(T+1)<>" "AND 
MTA: 1 39 
AND XC1)<>78 
NEXT I:P=1: 
GOTO "PAR 

GOTO "U 

REM 

REM PARTENZA 
REM 

"PARVELSES 
PRINT "PARTENZ 
A":BEEP 1,100, 


1000:F=SGN U 


» IF SGN U<C>SGN 


CUAND ABS U< 
ABS (CUXC)AND 
N>BQLET F=SGN C 
Ù 


: X(B)=105+21XF: 


I=#:CUSUB  *GE5 
‘ GOSUB-."UB"7 IE 
N=@G0T0 "M 


» (O"FORSI=LIO:-N 


: IF XCT)S=KXCOI) 
LET X(0)=x(0)- 
6XF.:GOTO "0 


:NEXT T 
‘ 'M"FOR T=8T0"“N 


: GLCURSOR CXCT 
Is LP): LPRINT:28 
$CT+11): NEXT 
-C=0 


sREM 
REM XXX NAVIGA 


ZIONE XXX 


s REM 
: NAU"R=INT: CRA 


0)+,5):51F*RS0 
LET R=R+360 


+: IF FR00)=2 


CURSOR 12: 
PRINT USTN6="# 
HHH'GA$;R; 


: VP=V: V=UV+C0U+9- 


RND 12: IF ABS 
V>ZIISLET V=C(25+ 
RND 1B)XSGN U 


:VU=INT CU-UP+. 


5dS1=S]+U: CS= 
C€S+1: UVM=SIZCS7 
:.5:MP=MI 


:CURSOR BD:PRINT 


USING "+###";% 
NUOVO nil. ; UV 


360: 
362: 


364: 
366: 


368: 


320: 


SIL 
324. 


378: 
378: 


380: 
382: 
384. 
386: 


388: 
390. 
392: 
394: 


396: 


;s:GPRINT "0007 
0507 
REM 
REM COLORE E 


VENTO MEDIO 


REM 

IF N=B0R AR=1 
bO:FO'-"R 
E=sb+.29: lE C=3 
LET Ce 


COLOR 3.9=B. IF 
C-INT C=RPAND M 
A<394G6LCURSOR 
(0, Y(0)): COLOR 
CiQ=1:SI=UMX12 
:CS=8: SK=D:. SY= 
D 


REM 

REM FORZNEXT 
DI NAVIGAZIONE 
REM 


SRUAUSAUV+1.CM= 
D:FOR T=DTO N: 
EE .FRCOTI=SIOR 
FRCOT)=1G0T0 “N 
EXT 

REM 
REMUPOSIZIONE 
REM 
RC=RCTI+UP: CT 
I=XKCT)+UCT)XK 
SIN RC:VCTI=Y(C 
PFaeT) COS ‘RC 
REM 

REM MAX E MIN 
REM 

IF CM=BLET MI= 
YCOT).MA=MI:. MS= 
XCT):. MD=MS: 
GOTO s 

BE VGT) SMELET 
MI=YCT) 


422: 


424: 


4265: 
428. 


430: 
432: 


br IMALET 


MA=YCT) 


SEPARRC TI AMSLET 


MS=XCT) 


20, TFT 3 IMDLET 


MD=X CT) 


«REM 
s REM STAMPA BAR 


CHE 


“REM E VERIFICA 


ARRIVO 


: REM 
SO ARCI 


AND XCT)<216 
GLCURSOR CKCT)I 
yY CT) LIPRINT 
@$C(T+11) 


i IP TATI2S56LE1 


FRCT)=2 


» IF A=ILET SK=S 


R+XCTI): SY=SY+Y 
CPI 


*“ GM=CM+ts be "Yet 


) 2394G60SUB "CL 


so NEXT NERE” TS 


CURSOR- L24 
SERIE 

“i IF A=DBOR A 
R=1G0T0 "VU 
x=SXK7CM. YaSY7C 
M 
LINE, -CHS-10;-Y+ 
3+CReMS+1B)* 
TAN UP)-(MD+15 
#5 CRD 39 
XTAN UP) 
REM 
REM STAMPA VEN 
TO 
REM 
“U"IF AR=1G0T0 


(Ce 
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434, 


436: 


438: 


440: 
442: 


448: 


450: 
452: 


454: 
458: 


458: 
460: 


462: 


464: 


XFE=XI+CMA-YI)X 
SIN UYU 

IF XI<C4DLET XL 
=RF+180:LINE € 
X1-+1889, YID= CEL 
s MAD 

IF XIDBLINE CX 
Fa MAI-CKIsY1DdDa 
XL=XI 
XI=XF:VI=MQ 
“Pi: M02200 
AND L<400 
GLCURSOR C0, MA 
):COLOR D:L=40 
9:COSUB “LINEA 


IF 


<-?25LE1T MR =-79 
GLCURSOR XL, MM 
Pia GOT=:" P 

REM 

REM FINE LOOP 
PRINCIPALE 

REM 

REM DISEGNO LI 
NEA 

REM 

"LINEA" 
GLCURSOR (€29, - 
2+L)>slePRINT "o 
‘IN E#684,:L3- 
(134, L) 

LINE C134,L-2) 
=(134zle#2d3C13 
6; L+B)=t4S$, Lt 
8) 

LINE -(C(140,L+6 
az, L+2)-C1 


42,L-2)-C141,L 
=43+C139e=052 


‘LINE ‘+(L13#%0=2 


p- (135,7 PPR6 
34, L-2): RETURN 
REM 

REM POSIZIONE 
DI PARTENZA 
REM 


s "PPK=B+ CES 


PRINT "Pos.parn 
t..:(1/832'PC6X0) 
)-728)/6: CURSOR 
22: INPUT & 


:K=INT Ki1F KI 


OR K>8GOTO "PP 


:XCT)=INT CKX6+ 


728):FOR I=1T0 
N: IF T=IOR XCT 
GIR INERTI 1 
RETURN 


: BEEP 3:X(T)=78 


 GOTO-"PP 


s REM 

:REM PRUA 

:REM 

: "PR"K=45+PGi 


CLS :PRINT "Pn 
ua "+@$(T+1)+" 

("+STR$ (45+P 
CT) 3A 
INPUT K 


: IF K<K320R K>18 


BGOTO "PR 


ste PRIBEBCT I) =K- 45 


:FRCT)=D:RCTI= 
KXSGN RCT) 


:COSUB "UB": 


sREM 
« REM RITIRO 
» REM 


SUWRET*FOR J=NTO 
eee. -1:!F CL 
(I)DK>ONEXT J 

SERCT)=-1: XCTI= 
JO CLCJ)=T710 
» IF N=B@GO0T0 "S 
C 

sale CLC(J-1)=@ 
GOTO0 "P 

PEOTO SC 

9: REM 

+ REM CLASSIFICA 

RET 

MRC 39 
070460 GIOR YC 
TI--BP4CKC(T)-13 
BRETURN 

:BEEP 1:K=INT A 
UXK1E5+C(490-INT 
MOTORIE 3+INT 
(200-XCT))+TA1 
D:FRCAT)=1.]=0. 
F=p: AR=1 

ad IPCC 
LETE=3RCECJII= 
ibi JeNGOTO." 
SE 

se F=19ND-CLCIJ 
bi 3<.7060T0 "SC 

». IF F=1RETURN 

Pre INF_K<CINT € 
IFQJI LET. Q=CL CI 
Di CL(J)=K:Kk=0Q: 
BORO"""H 

SIFCINT_K>=INT 
CIGISSOTO -"H 

he. Clacda.13<>0 
GO0TD SC 

sone dehkbi&LE J< 
=NGOTO "G 

: REM 

»: REM STAMPA CLA 


SSIFICA 


:REM 
: "SC"USING 


GLCURSOR €0, LP 
=4DI):TEXT.:: 
CSI ZE 1: COLOR 
I 


: IF N=BDBEEP ON 


«PE, I GOTO "S 


«RESTORE :FOR I 


=DTO N+1:4C1)= 
T+]15READ XC1): 
NEXT I:XCN+1)= 
XCN) 


DATA 2, 35.7, 8 


3195 114,43, 14 
» l'Ooeo 


: REM 
sFOR_T=0T0 N: IF 


I=NGOTO "i 


SIEGZENT CLC15= 


Det CLCOJ+ 19LES 
ICI+1)=UCI) 


sr DI 4 CLGTI= 


INT CLCIIIZIO 


«MaI: 1. FRET 


)=-1LET V=N+2 


CFR CU 


IXKIB9OCPR-1) 


: MA=CCFCT)-INT 


CECTI)XID 


TFPUIMALE.I; CE 


T)=CFCT)+(U-MA 
)/10 


; IF PR=4LET CFC 


T)=CF (T)-XC(MA- 
1)X1E? 


: IF PRK4OR U<=M 


ALET CFCT)=CF€ 
T)+XC(U-1)X1E7 


: IF PR>3AND UM 


ALET CFCT)=CF € 
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T)+XC(MA- 1)X1E? 


SNEXT I 
«UPRIMT “XE UL 


ASSIFICA DOPO 

LA"; :FOR I=908T0 
N:RCI)=INT CF€e 
ID+IZ1D:NEXT I 


«LPRINT PRs°* PR 


QUA KEK": 
LPRINT 


: REM 

s REM SORT 

» {=D 

« “R'FOR 431170 


Ni IF INT RCEIDS< 


= INT RCJ)GO0TO0 
"y 


:R*RCI):RCI)=RC 


JI RCII)SR 


:"Y"NEXT J:1=1+ 


is IF _JICNGDTO * 
x 


; REM 


FOR I=DTO N: T= 
(RCI)-INT RCI) 
)XIDB:REM R=INT 
C(CF.C127 1BAKD=J 
))/10:R=CR-INT 
RIXID 


«LPRINI.STRS (CI 


#1)+" "+@$(T+1 
1)+" "+@$(T+1) 


FOR J=1T0 PR: 


TAB C12+IX2) 


+ R=INT CCFCTIZI 


DI6C(I-1))/10:R= 
CR-INT RIXID:U 
$=STR$ R:IF R= 
N+2LET W$="R 


:LPRINT W$;: 


NEXT. J 


600:TAB 31:K=INT € 


CF CT I37IEOSZ ESS 
IF K<1BLPRINT 


9 
:LPRINT K:NEXT 


I:LF 6:IF PR<6 
GOTO "PROVA 
LF S:FND 


s REM 


REM POLARE VEL 
OCITÀ?” 

REM 
'SPU“ESIZE=21 
GRAPH :COLOR 3 
:GLCURSOR (€20, 
9): LPRINT.: “Poi 
are velocita": 
LINE €201, 23-=% 
2093; 11) 
CLCURSOR €90, --1 
209): SORGN 

LINE C0, D)-C21 
4,9), 0,0 
GLCURSOR (€16, 2 
B):LPRINTI2S4S 
"i GLCURSOR:-C192 
4, 70): LPRINASZE 
as" 


A: CLCURSOR €104, 


40):ROTATE 3: 
LPRIMNT "vento 
LINE €127, 100 
)-.1.97, 253 = 
D, 35)-(104, 35) 


197,553: 
GLCURSOR. (90, - 
80): ROTATE 0. 
LPRINT == R1986, 
LINE .(1N7#=853 
ED ser DOO 


624: CLCURSOR C0, -1 


B7Z)I:LINE C0, 1 
M79=:C1722, 65), 2 
eb'INE (194,8 
7293-0214, 1072) 
+LCINE €214, -107 
)- (42, 65), 2; ll: 
LINE €20, 872)-€ 
D, 107) 
SILTNE *C0, 1072)-C 
214, -107), 9, CI R 
«COLOR. 3: 
CLCURSOR (€127, 
MB): SORGN 
“CLEQR :DIM RCD 
di, CB): IU=100 
‘FOR 1=24T09 3236 
STEP 8:RC60D)=1:;: 
IF Id>DIBOLET RA 
0)=360-1 
« GOSUB "UB": 
LINE -CUCD)X 
SIN I, v(B)XCOS 
I) 
NEXT I:LINE -€ 
MW: TEXT LF 
8:RETURN 
REM 
REM ASSEGNAZIO 
NE TASTIERA 
REM 
SAT TEXT è; 
USTZE 1:COLOR 
SSGeMRINT "X X 
X  ASSEGNAZION 
E TASTIERA X 
PE. S 
«CULOR: 8: ECPRINT 
CIPE 24 N 
ome del timoni 
ere":LPRINT=*B 
Nome della 


«UPRINT ©P.us Po 


sizione di pan 
tenza 


+: COLOR 1:LPRINT 


FUOPRIMNE > 
dieta derit 
EPRINT br My 
me**a: Ss m1ustra 


PUPRINT "= is SN 


solo col vento 
(30/180) 


eEPIRENTE SRI, 9 


Angolo col v 
ento (40749)". 
EPRINT [Eu Ro 
tta scelta dal 

computen 


COLOR 2:LPRINT 


PRPIRINI - Vl ie) 
er rivedere 11! 
percorso 


sLPRINT Ria 


tiro timoniere 


:LPRINT "Frecci 


e vettt. a Rota 
zione timoniern 


:LPRINT "SPACE 


Partenza e n 
ovigazione "i: LF 
6:RETURN 
REM 
REM START SENZ 
A ISTRUZIONI 
REM 
"S"“CLEAR :BEEP 
ON :WAIT BD: 
INPUT: “Na FIMO 
NIERI C(0=DIM.) 

PUN 


:NSINT NiIF N<CQ 


Seguito figura 2. 


Seguito figura 2. 


6/8: 


678: 


680: 


682: 


684: 


686: 
688: 


690: 
692: 


OR N>7G60T0 "S 


IF N=BPRINT "D 
IMOSTRAZIONE: 
Bol.= .5 MM 
"DIM"DIN: PCN, 
RCNID, UCNT1):; XC 
N+1), Y(N), FRAN 
I. CLONI. CECNI 


1U=25+NX5S: IF N 
=BLET IU=S50: 
BEEP: OFF 


FOR T=1T0 N:@$ 
(T+1)=CHR$ CT+ 
48):@$(T+11)=@ 
$(T+1):NEXT T 
TENF.NESIZE 1: 
COLOR +Y@sth. 2 
REM 

REM INIZIO PRO 
VA 

REM 
"PROVA"NAIT Dd. 
L=.5+1.5XSGN N 
«IFÒUNDIBINPUT. 
LATO BOLINA €. 
ISTRIA 0" 3 L 


DXCOS V:LINE € 
200-X, L-Y)-C20 
DL) 


:GLCURSOR (€127, 


L=e8)*LPRINE=e8 
“"iGLCURSOR (€87 
sL=8).LPRIENGZA 
1 

L'INE 10208, L) = 
d-X, L=Y) 
GLCURSOR (€0, L- 
25): COLOR 3 


us=" 


"risa Be 
"IF N>Q@PRINT 
U$+V$ 
Ag="SHARP":K$= 
"#";FRC(0)=2 
FOR T=9@T0 N: X€ 
T)=781sY (Mal ce 
RAT)=B:CLCTI=Q 


»s RCTI=C(45+PCT3) 


XSGN -U: GOSUB 
"UB'"ENEXTOT= Pie 
(0)=2:X(0)=107 
GO0TO0 E 


594: If ESS0R: L>2 
GOTO "PROVA 
696:L=400-200XL:LP 

=L:C=(29-NX2)X% 


65100:REM 
65119:REM RENUMBER 
65120:REM 
65130: "REN"N=100: 1 
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200: 


202: 


204: 


698: 


(1-L/400):CU=( 
31-RND 61)7C 
P=B:MI=L:QR=0: 
CO=D: IF N>BALET 
PR=PR+1] 
GRAPH*-ESTZE ‘1 
: GLCURSOR C0, - 
378):SORGN : 
GCOSUB "LINEA 
V=8,5-RND 15: X 
1=20:VYI=L 
SI=VX8:CS=8: UM 
=U/1.5:Xd=107+ 
CUXIDDXC1-L740 


0) 
706: X=3BDXSIN U:Y=3 


=2:M=STATUS 
2-STATGOSEI 


65140: H=N7256:P= 


INT H:S=CH-P 
)X256:POKE M 
s PiS:N=N+I:M 
=M+3+PEEK CM 
*2)# TIF__PEEK 
M<254G0T0 65 
140 


STATUS 1 


8847 


STATUS 3-STATUS 2 
102 


nare sulle proprie decisioni, modificandole. 
Durante la regata bisogna astenersi nel modo 
più assoluto dal pigiare il tasto per l'avanzamen- 
to della carta (peri più distratti consiglio di copri- 
re il tasto della stampante con un coperchietto); 
per rivedere il percoso effettuato tenete invece 
premuto V. 
Nel caso che un concorrente voglia assentarsi 
momentaneamente, oppure se ci sivuole cimen- 
tare contro più barche, è possibile in qualsiasi 
momento far controllare una 0 più barche dal 
calcolatore pigiando L (questo è particolarmen- 
te utile nell'ultima parte della regata, quando si 
tratta di convergere verso la linea di arrivo): per 
riprendere poi il controllo basta inserire la rotta 
voluta. 
È inoltre possibile ritirarsi pigiando R e risponden- 
do affermativamente alla richiesta di conferma. 
Quando tutte le barche hanno terminato la 
regata viene stilata la classifica secondo il siste- 
ma di punteggio olimpico, che assegna 0 punti 
al primo e nell'ordine 3, 5.7, 8, 10, 11.7, 13, 14, 15, 


ecc. 
Tutti i ritirati prendono il punteggio spettante al- 
l'ultimo (se fossero arrivati tutti). Dopo ogni prova 
vengono sommati i punteggi ottenuti da ciascun 
concorrente ed aggiomata la classifica. Se si ef- 
fettuano più di tre prove, la classifica viene stilata 
senza tenere conto del piazzamento peggiore; 
perciò, se in una delle prove si è andati male o ci 


si è ritirati, si può sempre contare sullo scarto. In 
caso di parità prevale chi ha meglio figurato nel- 
l'ultima prova svolta. 

Il programma occupa oltre 8 Kbyte ed è ovvia- 
mente necessario che il PC-1500 sia in configura- 
zione espansa. Nel caso vi siano otto barche in 
regata la memoria non utilizzata (STATUS 3 - STA- 
TUS 2) si riduce a meno di cento byte: è consiglia- 
bile perciò digitare NEW 0 prima di caricare il 
programma. 

Se avete delle routine in linguaggio macchina 
nell'area protetta, potrete utilizzare il programma 
con un numero minore di timonieri. La numerazio- 
ne ha incremento due per mantenere tutti i nu- 
meri di linea inferiori a mille, ottimizzando così la 
stampa del listato; chi volesse può facilmente 
rinumerarlo, grazie alla routine REN posta in coda 
al programma. 

Qualche regatante incallito commenterà che il 
percorso non è completo, che non si tiene conto 
delle eventuali collisioni fra le imbarcazioni e del- 
le variazioni di intensità del vento e della corren- 
te, magari differenziate in varie parti del campo 
di regata, ma dopo un lungo rodaggio del pro- 
gramma ho ritenuto che quello scelto fosse, tutto 
sommato, un buon compromesso fra simulazio- 
ne, divertimento e didattica, considerando an- 
che la relativamente limitata disponibilità di me- 
moria ed i pesanti tempi di elaborazione. 

Buon vento... e 


L'ing. Sebastiano Zappalà, autore di “Magicatalog” pubblicato sul n. 51, consiglia una nuova release del suo 
programma al quale, quindi, possono essere apportate le seguenti modifiche: 


0 REM ==>) JUMBO UTILITIES <<== 


310 VTAB 13: GOSUB 1000: GOSUB 9000:N = 0: VTAB 13: PRINT D$0P$FI%: 


D$RE$FI$: ONERR GOTO 330 


2000 HOME : GOSUB 9000: VTAB 1: HTAB 4: INVERSE : PRINT " MAGICATALOG " 
NORMAL : PRINT "----": VTAB 10: 


e vanno abolite le righe 2010 e 2020. 


0 REM ==>} MC2 «== 


210 S= S + N= 2):N=Nt 1 


- N * (N = 7): ON S > KS GOTO 220:CP = 


PRINT CHR% (4) "RUNMAGI CATALOG" 


PRINT 


K2 + K3 * N + K4 * S:PC = PEEK €CP - 3): ON NOT PC GOTO 220: ON PC= 
CP + 29:M3 = CB: GOSUB 8000:CB. = CB + 35: FOR 
I = 0 TO 4: POKE CB - 5S + I,VCI): NEXT :. GOTO 210 


KO GOTO 210:Mi = CP:M2 = 


1ii0, POKE PP,0:° WAIT PX, 128:P PEEK (PX): ON P_< ) 141 AND PF 
ON P 155 GOTO 470: ON J GOTO 10,430: 


G0TOQ 1110: FOKE PP_,O: 
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La fitolazione col computer 


Questo programma è nato dall'esigenza di alcuni studenti di un liceo scientifico di simulare 
una titolazione. Da essi è stato sviluppato l'algoritmo generale di calcolo per la titolazione di 
acidi e basi di qualsiasi volume e concentrazione. 


di Paolo Coretti 


L a struttura è lineare e molto semplice; dopo 
la visualizzazione sul display del menu princi- 
pale (linee 5-85), si opera la scelta delle opzioni 
disponibili, che sono: 

1 - calcolo del pH di una soluzione di acido forte 
(righe 100-102); 

2 - calcolo del pH-di una soluzione di base forte 
(righe 105-111); 

3- calcolo del pH di una soluzione di acido debo- 
le (righe 120-121); 

4 - calcolo del pH di una soluzione dibase debole 
(righe 130-131); 

5 - calcolo del pH di una soluzione con idrolisi 
(righe 150-221); 

6 - simulazione della titolazione di una soluzione 
Ca debole con una base forte (righe 250- 


7 - calcolo del pH di una soluzione formata da un 
certo volume ed una data concentrazione di un 
acido debole con una base di un certo volume e 
di concentrazione data (righe 390-410). 
Per il calcolo di pH di acidi e basi forti c'è un 
controllo per verificare se la concentrazione è 
diluita (meno di 10°°M): si introduce una formula 
correttiva, che tiene conto degli idrogenioni del- 
l'acqua, per evitare grossolani errori (pH = 8 per 
una soluzione 107°M di HC1). Le formule usate 
nelle parti 1,2,3,4,5 sono facilmente reperibili su 
qualsiasi testo di chimica. La sesta e settima par- 
te del programma utilizzano gli algoritmi di cal- 
colo riportati a parte, assieme al relativo flow- 
chart per ilcalcolo del pH della titolazione. Quan- 
do il volume della base aggiunta è superiore a tre 
volte il volume iniziale dell'acido il pH, ormai asin- 
at viene calcolato dalla formuletta della riga 
L'esecuzione è semplicissima: basta dare il RUN 
ed immettere i dati richiesti dal calcolatore. 
La concentrazione dell'acido è bene non sia 
troppo bassa (10*' — 10°*M) perché altrimenti al 
pH iniziale, e nei punti di equivalenza, c'è l'interfe- 
renza degli idrogenioni dell'acqua ed in questi 
casi bisognerebbe introdurre algoritmi di calcolo 
alquanto più complicati. 


Algoritmi dei calcoli 


1) Com Vili ‘ch Val 
Viva Viva 


Ca = concentrazione. 
Cb = concentrazione base 


Vi = volume acido all'inizio della titolazione. 
Va= volume base all’inizio della titolazione. 
N = concentrazione acido. 

Na = concentrazione base. 


2) Soluzione tampone: 

Co= ViNizVa Ne Cb= Va Na 
Vitvz VitvVa 

»__sGa Va Ni — Va Na 

[H]=K H]= Ka —____ 

[H") = Ko A = Ko VaNa 


Figura 1 - Un esempio d'esecuzione. 


CALCOLO PH 
INIZIALE 


AGGIUNTA BASE 
PH SOL. 
G TAMPONE 


SI 


IDROLISI 


BASE 
AGGIUNTA 
CALCOLO PH 


SI 
PH ASINTOTICO 


Figura 2 - Flow-chart per la simulazione della titola- 
zione. 


Vi= volume iniziale acido - volume base aggiun- 
ta. 

Va2= volume base dopo le varie aggiunte. 

B= Vi Ni — Va Na. Se B=0, si avrà l'idrolisi, e la 
concentrazione sarà: 


Va Na 
VitVa 


in cui V2 è il volume della base aggiunta nel 
momento dell'idrolisi. 
Superato il punto di idrolisi, avremo: 


VN 
(Vo + Vo) +V 


V = volume base aggiunta. 
N= concentrazione base. 
Va=volume acido all'idrolisi. 
Vb=volume base all'idrolisi. 


4) [OH"]= 


5) [OH7] = 


5 VAC :SET N 
18 PRI "A.F.(1)B,F 
SORDO. 


26 PRI ”IDROLISI(S 
ITITOLAZIONE(6) 


36 PRT ’AMALISIC7) 
"=: [NP R$:SET N 
35-1F R8="1" THEN 


198 

40 IF f$="2" THEN 
110 

56 IF f$="I" THEN 
126 

60 IF R$="4" THEN 
150 

76 IF A$="5" THEN 
158 

86 IF A$="6" THEN 
296 

85 IF A$="7" THEN 


468 
100 IMP "C=",C#IF C 
3 iE-6 THEN 102 
101 H=-L0G (({C+S0R 
(C+C44+1E-14)) 
12) )SPRT "PH="; 


H'6010 5 
102 H=-L06 C:PRT "P 
H=":H:G0T0 5 
105 H=14#L06 C:PRT 


PRMEUTÌ 
. 


THEN 105 

111 H=14#L06 ((C+50 
R_(C+C+4e1e-14) 
)/2)*PRT "PH="; 


= H:60705 
126 INP_"C=",C:INP 
PK=",K:H=-L06 $ 
QR_(K#C):PRT np 


121 G0T0 5 
156 INP_"C=", Cs INP 


s°.kt È 
SOR (K#C))+14:P 
RT_"PH=",k 
13 6070 5 
150 PRIA 0 KBCA/ 
160 B$=KEY:IF B$="" 
THEN 160 


161 PRT 

170 IF B$="A" THEN 
226 

186 IF B$="8" THEN 
200 

181 GOTO 160 

200. INP_"K=",K: INP 
"C=",C*H=-L06 $ 
n ((1e-14/K)8C 


201 PRT "PH=":H:G07 
05 


220 INP_"K=",K:INP 
"=", C+H=-(-L06 
SOR (C1e-14/K) 


+0))+14 
VAI MI "PH="s K: 607 
250 VAC :PRT "TIT.A 


286 2=-L0G SOR CK#C 
):PRT "PH INIZI 
ALE="52 

290 A=8 

300 A=A4D 

305 B=H#C-A3E 

310 IF B40 THEN 530 

315 P3-L06 (K+B/(R8 


E) 
320 PRI "Ve"s60"e 


325 6OT0 300 
338 Q=(AWE)/(HAA) 
340 P=144L06 SOR CI 


359 I=R+H:A=0 

360 A=R+D 

365 P=144L06 (CASE) 
#(I4A))3SET F2 

J70 ni "="5f5"PHz 


396 I ReH-D THEN 3 
390 B=CINT P)+1:PRT 
ASINTOTICO 


. 
a=.È 


INP:"KR=";K:SET 


bj 
401 INP_"Y.BASE=",D 
:INP "C.BASE=", 


E 

402 0=Y#C-(D4E) 

403 IF Q>0 THEN 406 

404 IF 0=0 THEN 407 

405 IF Q<0 THEN 418 

406 H=-L0G ((K#0)/( 
D#E):SET F2:PRT 
PTAMPONE: PH="; 
H:GOTO 400 

407 H=14+L06 SOR C( 
1e-14/K)#({DsE) 
2(44D)):SET F2 

408 PRT “IDROLISI:P 
H="5H:G0T0 400 

410 H=(ABS 0)/(Y+D) 
:H=14+L06 H:PRT 
FPH="5H: 6070 4 
(tto = 


Infine, per il calcolo dell'ultima opzione, avremo, 
nel caso di base in eccesso rispetto all'acido: 


VaitVa 


Listato ] - Il programma 
per lo studio del PH. 
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Listato 1] - Programma 
Hanoi. Questo listato, 
oltre ad illustrare l'uti- 
lizzo della ricorsione e 
dei vettori in PL/Bit, 
mostra un semplice 
esempio di utilizzo del 
comando a. 


-® 
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PL/Bit: il Compilatore 


di Carlo Magnaghi 


el suo libro “Algorithms+Data Structure- 

s=Programs”, Niklaus Wirth (creatore del Pa- 
scal e, più recentemente, del Modula-2) descrive 
un linguaggio di programmazione ridotto all'os- 
so, ma che del Pascal mantiene ancora l'aroma: 
il PL/O. Così com'è questo linguaggio non serve a 
molto (si tratta in effetti, più che altro, diun esem- 
pio didattico): manca infatti la possibilità di utiliz- 


INTERFACE 
USEPAGE 1, 
SHOWPAGE 1, 
FILLSCREEN 1, 
HCOLOR 1, 
HPLOT 2, 
MPLOTTO 2; 


CONST 
YMOVE=140; 


VAR NUM, I,J; 


ARRAY 
XMID: ix20, 
WIDTH 1..20, 
YLOW 1..20; 


zare qualunque tipo di variabile complessa co- 
me gli array e, ciò che più conta, non è possibile 
gestire l'input/output del calcolatore. 

Con un po' di pazienza è tuttavia possibile modi- 
ficare questo linguaggio, per ottenere qualcosa 
di sufficientemente completo: è nato così PL/Bit, 
un compilatore che, nella sua semplicità, per- 
mette di scrivere programmi abbastanza com- 
plessi (si vedano gli esempi Hilbert e Hanoi), ge- 
nerando un codice molto efficiente (ad esempio, 
nell'esecuzione del ramma Hilbert, nono- 
stante il grande numero di moltiplicazioni e divi- 
sioni eseguite per ottenere un disegno più corret- 
to, il codice generato da questo compilatore è 
circa 5-6 volte più veloce di quello generato dal- 
l'Apple Pascal). 


PROCEDURE MOVEDISE ORG, DST; 


VAR 


XO, YO, XD, YD, X1,X2, XM, IT, DISK,D; 


BEGIN 


XO:=0RGX90+50; XDs=DST*90+50; 


YO:=200;YD:=190; 
I:=0; REPEAT 
I;=I+1; 


IF_YLOWC(I) “YO AND XMID(I)=XO 


BEGIN 


THEN 


Seguito listato 1. 


YOs=YLOW (I); 
DISK:=I 
END: 
IF YLOWC(I){YD AND XMID(I)=XD THEN 
YD:=YLOW (1) 
UNTIL I=NUM; YD:i=YD-5S; 
XM:=XMID{DISK)%7 
X1:=XM-WIDTH (DISK): 
2:=XM+WIDTH (DISK); 
REFEAT 
CALL HCOLOR O; 
CALL HPLOT X1,YO; 
CALL HFLOTTO X2,YO; 
CALL HCOLOR 3; 
CALL HPLOT X1,Y0-4; 
CALL HPLOTTO X2,YO0-4; 
YO:=Y0-1 
UNTIL YOCYMOVE: 
D:=2% (DST>0RG)-1; 
IF DO THEN 
BEGIN I:=X1gX1:=X25X2s=I ENDi 
REPEAT 
CALL HCOLOR O; 
CALL HPLOT X1,YOs 
CALL HPLOTTO X1,YO-3; 
Xi1:=X1+D5X2s=X2+Ds XMa=XM+D;s 
CALL HCOLOR Ex 
CALL HFLOT X2,YO; 
CALL HPLOTTO X2,YO-3s 
UNTIL XM=XD; 
REPEAT 
YOs=YO+1; 
CALL HCOLOR O; 
CALL HPLOT X1,YO0-4; 
CALL HPLOTTO X2,Y0-4; 
CALL HCOLOR 3g 
CALL HPLOT X1,YO; 
CALL HFLOTTO X2,YO; 
UNTIL YO=YD; 
XMID (DISK) := 
YLOW (DISK) = 
END; 


Di 
D 


X 
Y 


PROCEDURE MOVE ORG, VIA, DST, NUM; 


IF NUM >O THEN 
BEGIN 

CALL MOVE ORG,DST,VIA,NUM-1; 

CALL MOVEDISK ORG,DST: 

CALL MOVE VIA,ORG, DST, NUM-1; È, 
END; © 


Seguito listato 1. 
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APP|LEsssResasaaREneORE 


REPEAT 
PINLOOP LDA $0000 
d STA $C010 
DdD SEC 
SBC #$B0O 
CMP_#I1O 
BCS INLOOF 
CMP_RO 
BEO INLOOP 
STA VARSTACE 
LDA #0 
STA VARSTACE+1 


T:=Os REPEAT Is=1I+1; 


XMID(I):=50; 


WIDTH CI) sf (NUM+1-1) 5; 


YLOW (1) :=190-5XI 
UNTIL I=NUM; 
CALL USEFAGE 1; 


CALL. FILLSCREEN 0; 
CALL SHOWFAGE 1; CALL HCOLOR x 


I:=191; REPEAT 
CALL HPLOT 0,1; 


CALL HPLOTTO 279,1; 


s=1--1} 
UNTIL Is186; 
CALL HFLOTTO 
CALL HPLOTTO 
CALL HPLOTTO 


Is=OsREPEAT Is=I+1; 


:=Os REPEAT 


CALL HPLOT S0-WIDTH(I) ,YLOWC(I)-J; 
CALL HFLOTTO SO0+WIDTH(I) ,YLOWC(I)=J; 


Js=d+1 
UNTIL J=4 
UNTIL I=NUM; 


CALL MOVE 0, 1,2, NUM; 


UNTIL O. 


Purtroppo non mi è possibile rimandare a ma- 
nuali introduttivi su questo linguaggio: anche nel 
libro sopra citato si rimanda a una generica co- 
noscenza del Pascal, cui il PL/0 assomiglia molto, 
dando solo un breve programma di esempio. 
Questa prima parte dell'articolo sarà quindi dedi- 
cata a un'introduzione di tipo ‘tutorial’ a questa 
versione del linguaggio (che differisce in modo 
abbastanza sostanziale dal PL/0 standard). 

| tipi di variabili usati in questo linguaggio sono 
interi e amay monodimensionali di interi. A diffe- 
renza da ciò che succede in BASIC, le variabili 
devono essere dichiarate prima dell'uso. Le di- 
chiarazioni avvengono all'inizio del programma 
o della procedura (parlerò delle procedure più 
tardi). Per dichiarare le variabili intere (per esem- 
pio A e B) basta scrivere: 


VAR AB; 


(da notare subito che il compilatore è case- 
sensitive, cioè riconosce come differenti le lettere 
maiuscole e minuscole, quindi “a” e “A” sono 
variabili diverse, mentre ‘var’, a differenza di VAR, 
non ha nessun significato particolare per il com- 
pilatore). 

La lista di variabili può essere lunga a piacere, i 
nomi devono essere separati da virgole e l'ultimo 
deve essere seguito da un punto e virgola. 
Leggermente più complessa è la dichiarazione 
degli amay. A differenza del BASIC, è possibile 
avere array con indice minimo diverso da zero. 
Una tipica dichiarazione è come segue: 


ARRAY 


‘na differenza tra 
| diet ione del tutto equivalente è la seguen- 


| (Owiamente la prima scrittura è più leggibile). 
| _— Percomodità e chiarezza è pure possibile dichia- 
| rare delle costanti, per esempio: 


| CONST 
APPLES=2, 
WORMS=5; 


| L'utilità è interminidi leggibilità del programma e 

.  difacilità di modifica; supponiamo di voler modi- 

ficare il programma e che ora le mele debbano 

essere 8: basterà modificare la dichiarazione ini- 

ziale; se invece avessimo scritto ‘2’ al posto di 

| —»—APPLES' all'interno del programma dovremmo 

| sostituire un saccodi caratteri, stando ben attenti 

| ‘a non cambiare in ‘8’ anche dei ‘2°, che con le 
|’ mele non hanno niente a che fare. 

Le dichiarazioni CONST, VAR, ARRAY devono ap- 

parire in questo ordine all'inizio del programma; 

) consideriamo, per chiarire le idee, il seguente 

| esempio: 


VAR 
ARRAY NUM 0..MAX1; 


BEGIN 
li=0;REPEAT 
NUM(I):=0; 
i=I+1 
| UNTIL I>MAXA 
o END. 


«| _—»’‘‘Anche se il significato del programma è abba- 
| _»‘’stanza intuitivo, non preoccupatevi se per ora 
| avete qualche difficoltà a leggere un linguaggio 
|| Così diverso dal BASIC; ciò che invece dovrebbe 
già essere chiaro è che MAX1 è una costante di 
a valore 50, tè una variabile semplice e NUM è un 
gig cui indice varia tra 0 e MAX1 (cioè 50) 
inclusi. 
Il passo successivo è ora la comprensione delle 
espressioni algebriche; come in BASIC, e in molti 
«|_»’@iltri linguaggi ad alto livello, queste sono essen- 
ziali per scrivere programmi. 
Supponiamo ora che A e B siano variabili e C sia 
un array; allora le seguenti sono espressioni lecite: 


Aa 

A+B 
CIATDABA(A+8)) 
«  C(C(A+C(B))/B) 


ù 


| _—’—Queste invece non lo sono: 
4 a + A x 


Sa Blei dota i . 
: SETA Cd 28 ue. | Fg ©, PA AeETAL la | nè, Tiles i Ada e he dit MLA E Pale OTO Ù Li ie e: ta fu N sli 


A+C (manca l'indice di C) 


In generale sono lecite tutte le espressioni alge- 
briche classiche; inoltre 1 e 0 sono interpretati, 
come in BASIC, come i valori logici VERO e FALSO; 
sono quindi lecite le seguenti espressioni: 


A+4(A>B) 

A+#(A>B OR C(A+B)) 
Attenzione, l'espressione 
A> -1 


non è lecita, in quanto ‘>’ viene considerato un 
operatore in tutto e per tutto simile a ‘+ e gene- 
ralmente non è accettata l'espressione: 


A+ -1 


Questa limitazione è comunque facilmente su- 
perabile (basta scrivere AX-1) ) e di scarsa im- 
portanza in confronto al vantaggio di poter mi- 
schiare a piacere operatori aritmetici e logici. 
Ecco una lista degli operatori in ordine di prece- 
denza (ricordate la convenzione 1=vero, 0=fal- 


e ODD (vale 1 se l'operando è dispari; 0 se è pari; 
esempio: ODD A, ODD(A+B*C(1)) ); 

e NOT (vale 1 se l'operando è nullo, 0 altrimenti; 
esempio: NOT(A<B) è uguale a A<=B); 

® ABS (vale il valore assoluto dell'operando, 
esempio: ABS A, ABSCA+BXCC(A)) ); 

e / (è l'operatore di divisione, come nell'Integer 
BASIC; bisogna però fare attenzione, in quanto in 
PL/Bit il risultato è approssimato ad un intero: 2/3 
vale 0, non 0.666666 come in Applesoft); 

e MOD (è l'operatore modulo, funziona esatta- 
mente come in Integer BASIC, non è il resto come 
inteso in algebra e bisogna quindi fare attenzio- 
ne con i numeri negativi); 

e x,-,+(-è sia operatore unario come in -A, sia 
binario, come in A-B) 

<, <=, =, <>, >=, > (sono i soliti operatori di 
confronto tra numeri; il risultato è 00 1 conle solite 
convenzioni: 0=falso, 1=vero); 

e AND, OR (sono gli operatori logici, accettano 
qualsiasi valore, anche diverso da 0 e 1, con la 
convenzione che qualunque numero tranne 0 
vale vero; il risultato è comunque uno 0 o un 1, 
esempio: (A OR B) AND A ); 


Possiamo ora finalmente introdurre il primo state- 
ment: l'assegnamento. 
In BASIC si usa scrivere: 


A=B 
in PL/Bit c'è una leggera modifica, si scrive: 
A:=B 


L'uso del segno ‘:=’' invece del vecchio ‘=’ ha un 
significato ben preciso: quando in BASIC scrivia- 
mo A=B non intendiamo fare un'affermazione 
del tipo “il valore di A è pari al valore di B"”, ma 
intendiamo richiedere al calcolatore di assegna- 
re alla variabile A il valore della variabile B; in 


Listato 2 - Programma 
Hilbert. Questo listato, 


INTERFACE 
tratto con leggere modi- 
fiche dal libro di Wirth HPLOT 2, 
‘‘Algorithms+Data HPLOTTO 2, 
Structures = Pro- HCOLOR .1, 
grams”, mostra come 
realizzare in PL/Bit UGEPARE, 1, 


SHOWPAGE 1, 
FILLSCREEN 13; 


schemi complessi di ri- 
corsione. 


CONST 
N=7,HO=128; 


VAR 
IsHiXaYaXO,YO,ITr 


FROCEDURE A I; 


PROCEDURE B I; 


PROCEDURE C I; 
PROCEDURE D 13 


BEGIN IF 
BEGIN 
CALL 
CALL 
CALL 
CALL 
END 

END: 


A 


D 
D 
C 


BEGIN. IF 150.0 
BEGIN 
CALL 
CALL 
CALL 
CALL 
END 
END; 


laid 
fm pi 
uns as ss as 


vuoot 
HHHNH 


BEGIN IF IsO THEN 
BEGIN 


effetti, questa differenza era riconosciuta nei pri- 
mi dialetti del BASIC, che richiedevano si scrives- 
se: “LET A=B", poi la cosa è diventata facoltativa 
ed è andata rapidamente in disuso. Ilsegno ‘:='è 
stato introdotto (credo per la prima volta) nel 
BNF, un formalismo per descrivere i linguaggi, ed 
è stato prontamente utilizzato nei linguaggi più 
recenti (Pascal ed altri), tanto che, dovendo il 
BNF trattare anche questi linguaggi, per evitare 
confusioni si usa ora in BNF il segno ‘::='; è impor- 
tante comunque capire la differenza che passa 
tra il segno ‘:=' che indica assegnamento e l'ope- 
ratore ‘=' che indica un confronto tra valori. 
Naturalmente è possibile assegnare valori anche 
a elementi di un array, per esempio: 


rr 
con 


C(A+Bx(A+1)):=A=B 


(da notare qui la differenza tra il segno ‘:='e il 
segno ‘=‘). 

Passiamo ora a quegli statement che consento- 
no al calcolatore di prendere delle decisioni e 
permettono quindi di scrivere dei programmi utili. 
Lo statement più semplice di questo tipo è: 


IF <condizione> THEN <statement> ; 
Si tratta in sostanza dello stesso statement del 


BASIC, con la solita convenzione che 0 significa. 
falso, mentre qualunque altro numero significa 


150 THEN 


Hi CALL HPLOTTO 
“Hs CALL HPLOTTO 
+Hi CALL HFPLOTTO 


(KRT) /2, (YRE)/E 
(XXI) /2, (VR) A 
(XKT)/D, (YKE)/ 


e) 
tl 

Fa‘ 
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Ci 


LI 
" 
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+Hi CALL HPLOTTO (XX) /2, (YX3)/ 
+Hs CALL HFLOTTO (XX3)/2, (YX3)/3; 


«Hi CALL HPLOTTO (XX3)/2, (YXZ) /25 


CALL 
CALL 
CALL 
CALL 

END 

END; 


BEGIN IF I30 
BEGIN 
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+Hs CALL HPLOTTO 
+Hs CALL HFLOTTO 
Hi CALL HPLOTTO 


< dc < 
< > < 


Hood 


THEN 


(XKI)/2, (YKXT)/23 
(XKE)/2, (YKE) 2; 
(XK3)I/ 2, (YRT) /23 


soressssessansonzzpp| E 


vero; lo statement può essere qualunque state- 
ment compreso l'assegnamento e lo stesso state- 
ment IF...: consideriamo i seguenti esempi: 


IF A>B THEN B:=B+1; 

IF A THEN A:=B; 

IF A=B THEN IF A=C(0) THEN B:=5; 
IF A=B AND A=C(0) THEN B:=5; 


Da notare che i due ultimi statement fanno esat- 
tamente la stessa cosa. 

Esiste una versione dello statement IF di cui in 
Applesoft si sente spesso la mancanza: 


IF <condizione> THEN <statement> ELSE <state- 
ment>; 


In questa versione dello statement IF lo statement 
dopo THEN viene eseguito se la condizione è vera, 
quello dopo ELSE se la condizione è falsa; consi- 
deriamo i seguenti esempi: 


IF A=B THEN C(A):=B ELSE C(B):=A; 
IF A<B THEN IF A=0 THEN B:=1 ELSE B:=A; 


In quest'ultimo esempio si ha una certa ambigui- 
tà: ELSE è preceduto da due IF e viene spontaneo 
chiedersi a quale si riferisce, cioè se lo statement 
B:=A viene eseguito se non è A<B o se viene 
eseguito quando è A<B ma non A=0; cercherò di 
chiarire il problema con l'uso di alcune parentesi 
(che, sia chiaro, hanno solo una funzione grafica 
e non rientrano nella sintassi del linguaggio); nel 
primo caso avremmo: 


IF A<B THEN (IF A = 0 THEN B:=1) 
ELSE B:=A: 


IF A<B THEN (IF A=0 THEN B:=1 
ELSE B:=A)) 


È convenzione che l'intenpretazione corretta sia 
la seconda, ma come ottenere, se necessario, 
che il calcolatore utilizzi la prima di queste due 
interpretazioni? 

Questo ci porta direttamente al prossimo argo- 
mento: lo statement compound. 

Ci si trova spesso, nei linguaggi strutturati, a dover 
mettere qualcosa di più complesso di un sempli- 
ce statemente in un posto dove ci può stare un 
solo statement. Consideriamo la frase: ‘se A<B 
allora poniamo A e B uguali a zero‘. 

È ovvio che questo non equivale a scrivere: 


IF A<B THEN A:=0;B:=0; 


perchè in questo caso B sarà posto uguale a zero 
anche se non è A<B. Si è pensato quindi a qual- 
cosa di simile alle parentesi che ho usato prima: 
le parole BEGIN e END (ove la prima fa la funzione 
di parentesi aperta e la seconda quella di paren- 
tesi chiusa; riporto per dovere di cronaca che 
esiste un linguaggio, il C, che usa invece le paren- 
tesi graffe per questo scopo). 

Per interpretare la frase precedente basta quindi 
scrivere: 


IF A<B THEN 
BEGIN A:=0;B:=0 END; 


E per ottenere la prima interpretazione dello sta- 
tement scritto sopra scriveremo: 


IF A<B THEN 
BEGIN IF A=0 THEN B:=1 END 
ELSE B:=A; 
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Figura 1] - I diagrammi 
sintattici illustrano in 
modo formale la sintassi 
di PL/Bit e costituisco- 
no un utile mezzo per 
comprendere il motivo 
dei messaggi d'errore 
del compilatore. Il ca- 
rattere @ è un comando 
proprio del compilatore, 
non una parola del lin- 
guaggio, e non è quindi 
riportato nei diagram- 
mi. 
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Un'ultima cosa degna di nota sullo statement IF: il 
punto e virgola non va messo prima di ELSE: 


IF A<B THEN A:=1;ELSE A:=0; 


è sbagliato in quanto, come il Pascal, il PL/Bit usa 
il punto e virgola per separare gli statement e 
l'ELSE non è un nuovo statement, ma parte inte- 
grante dello statemet IF: sembrerà strano, ma, 
insieme al punto e virgola omesso tra gli state- 
ment e al segno ‘=’ usato al posto di ‘:=’, questo 
errore gareggia per i primi posti fra quelli più diffu- 
si in Pascal. 

Nel PL/Bit manca il GOTO tipico del BASIC: infatti, 
anche se l'uso di questo statement non implica di 
per sé che il programma risulterà illeggibile, si è 
notato che spesso il GOTO è usato male e si è 
quindi sostituito questo statement con altri due: il 
REPEAT...UNTIL... e il WHILE...DO...; potrà sembrare 
strano, ad un affezionato del BASIC, ma è stato 
dimostrato che tutto ciò che si riesce a fare con i 
calcolatori può essere descritto in termini di scelte 
(IF..THEN... e IF...THEN...ELSE...), sequenze (BEGI- 
N...END) e iterazioni (WHILE...DO... e REPEAT...UN- 
TIL..), e risulta in più, per esperienza pratica, che 
esprimendo i programmi in questo modo si ha 
qualcosa di facilmente leggibile e verificabile. 
La sintassi per lo statement REPEAT...UNTIL.. è la 


seguente: 


REPEAT <statement>;<statement>... UNTIL <con- 
dizione> 


il calcolatore eseguirà gli statement indicati, do- 
podiché valuterà la condizione: se questa risulte- 
rà falsa riprenderà ad eseguire gli statement, altri- 
menti proseguirà l'esecuzione del programma; 
consideriamo per chiarezza questi due program- 
mi equivalenti: 


l:=0; 10 1=0 

REPEAT 20 REM CICLO 

A:=2XA; 30 A=2xA 

=I+1 40 1=I+1 
UNTIL A>=B; 50 IF A<B THEN GOTO 20 


Penso che la maggior leggibilità della prima for- 
ma sia evidente. 

Molto simile a questo statement è il costrutto WHI- 
LE...DO...; in effetti la presenza di entrambi è un 
lusso che risulta però spesso comodo. La forma 
dello statement WHILE...DO.... è la seguente: 


WHILE <condizione> DO <statement> 


se la condizione è vera, lo statement viene ese- 
guito e si torna a valutare la condizione, se no, il 
calcolatore salta lo statement e continua. Consi- 
deriamo, per esempio, questa coppia di pro- 
grammi: 


l:=0; 10 I=0 
WHILE B<A DO 20 IF B>=A THEN GOTO 60 
BEGIN 
A:=2XA: 30 A=2xA 
l:=l+1 40 |=I+1 
END; sa GOTO 20 


Il vantaggio del costrutto WHILE rispetto al REPEAT 
sta nel fatto che col primo, se la condizione è 
falsa in partenza il ciclo non viene eseguito, men- 
tre col REPEAT il ciclo viene comunque eseguito 
almeno una volta. 

Abbiamo definito virtualmente tutto quello che 
serve per scrivere programmi, tuttavia questi ten- 
derebbero ad essere incredibilmente prolissi, se 
non ci fosse possibilità di definire dei sottopro- 
grammi più o meno equivalenti alle subroutine in 


Questa parte del linguaggio è un po’ più compli- 
cata di quanto non lo sia in BASIC, ma è anche 
incredibimente più versatile, permettendo di scri- 
vere con eccezionale facilità programmi ricorsivi 
(si vedano per esempio i programmi HILBERT e 
HANOI). 

Una subroutine è dichiarata in PL/Bit nel seguen- 
te modo: 7 


PROCEDURE <nome> <var1>,<var2>....; 


ove <var1>,<var2>... sono variabili che possono 
iva tg in numero qualunque, oppure essere as- 
senti. 

Seguono le dichiarazioni (eventuali) di costanti, 
variabili ed array locali; può essere inoltre presen- 
te una dichiarazione di un'altra subroutine (par- 
lerò di questo in seguito) ed infine uno statement 
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(che può essere anche del tipo BEGIN...END),. 
Una tipica subroutine, può essere la seguente: 


PROCEDURE DELAY N; 
CONST SCALEFACT=5; 
VAR |; 


BEGIN 

l=5xN; 

WHILE 1>0 DO l:=1-1 
END; 


Sono noti vari schemi con cui la variabile N, di- 
chiarata nella lista dei parametri della subrouti- 
ne, può essere legata al programma chiamante. 
Quella scelta è la seguente: il programma chia- 
merà la procedura DELAY con uno statement del 
tipo: 


CALL DELAY <espressione>; 


il valore dell'espressione verrà passato alla su- 
broutine, che lo assegnerà alla sua variabile inter- 
na N, assolutamente invisibile dal programma 
chiamante; ciò significa che se all'intero della 
subroutine il valore di N viene modificato, questo 
riguarda soltanto la subroutine ed il programma 
chiamante non ha assolutamente modo di ac- 
corgersene. 

Quindi, per esempio, dato il programma: 


VAR A: 
PROCEDURE ALFA A: 
A:=5; 


BEGIN 
A:=8;CALL ALFA A 
END. 


la variabile A dichiarata nella lista dei parametri 
della procedura ALFA non ha niente a che sparti- 
re con la A dichiarata come variabile nel pro- 
gramma principale ed inoltre la variabile A (del 
programma principale) varrà ancora 8 all'uscita 
dal programma stesso. Detto questo possiamo 
Raven in modo più compatto la procedura 


PROCEDURE DELAY N; 
CONST SCALEFACT=5; 


BEGIN 

N:=5%N; 

WHILE N>0 DO N:=N-1 
END; 


Naturalmente, il compilatore si aspetta che il nu- 
mero di parametri formali dichiarati per una cer- 
ta procedura corrisponda al numero di parametri 
con cui la procedura è chiamata: per esempio, 
data una procedura dichiarata come: 
PROCEDURE ALFA A,B.C:... 


È IRE RA 


se nel programma o in un'altra procedura si trova 
scritto: 


CALL ALFA 2+3,3x6; 
CALL ALFA 2,6,7; 
CALL ALFA 3,6,7,8; 


solo la seconda chiamata verrà considerata re- 
golare. 

Ma la caratteristica più interessante delle subrou- 
tine del PL/Bit è senza dubbio la possibilità che 
offrono di scrivere programmi ricorsivi; la ricorsio- 
ne, a scapito di una certa difficoltà nella scrittura 
del compilatore, offre grandi vantaggi per il pro- 
grammatore; nella prossima puntata parlerò del 
compilatore e dei problemi incontrati; peradesso 
consideriamo i vantaggi. 

Guardiamo il programma Hanoi: potrà sembrare 
lungo, ma in realtà il 90% del codice serve solo 
per la grafica: il problema della torre di Hanoi è 
risolto dalla subroutine ricorsiva MOVE. Questa 
compattezza non è un merito di strane caratteri- 
stiche del linguaggio, ma esclusivamente della 
ricorsione; per convincercene consideriamo il se- 
ere programma LISP (dialetto OWL compu- 
ter): 


DE MOVE (ORG VIA DST NUM) 
COND 


(ZEROP NUM NIL) 

CT (MOVE ORG DST VIA (SUB1 NUM)) 
(MOVEDISK ORG DST 

(MOVE VIA ORG DST (SUB NUM))))) 


Nulla hanno in comune il LISP e il PL/Bit, eccetto la 
ricorsione, ma la semplicità ottenuta è la stessa. 
Non che la ricorsione sia una panacea universa- 
le, ma esistono problemi come la torre di Hanoi o 
il disegno della curva di Hilbert per cui la soluzio- 
ne ricorsiva appare in tutta la sua eleganza. Ma 
in cosa sussiste il supporto offerto alle subroutine 
ricorsive dal PL/Bit? In fondo, anche in BASIC pos- 
reti scrivere una subroutine che richiama sé — 

essa: 


1000 REM SUB HANOI! 
1100 GOSUB 1000 


Già, ma il BASIC non genera variabili locali; ogni 
volta che in LISP o in PL/Bit una subroutine viene 
chiamata, eventualmente anche da se stessa, 
un nuovo spazio viene generato per le variabili 
locali, in modo che queste non interferiscano in. 
alcun modo con le variabili della subroutine 
chiamante: quando la subroutine MOVE chiama 
sé stessa assegna alla variabile NUM della su- 
broutine chiamata il valore NUM-1, dove però 
NUM è la variabile della subroutine chiamante. E' 
lo stesso discorso, in fondo, di quando si risolve 
ricorsivamente la torre di Hanoi in BASIC: si defini- 
sce un array, diciamo NUM(10), si tiene in qual- 
che modo aggiornato un indice del livello di su- 
broutine, diciamo DEPTH, e ogni volta che si ha 
bisogno del valore NUM, per una data profondità 
della subroutine, ci si riferisce a NUM(DEPTH). (In 
realtà si scopre che NUM è banalmente legato a 
DEPTH, cioè NUM=<dischi da spostare all'inizio> 


DEPTH, però non esiste niente di così semplice per dit 


ORG, VIA e DST). 


Ma, come in tutte le cose, una volta che ci si. dd 
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prende gusto si vuole andare più in là: e se io 
volessi quattro subroutine A, B, C, D che si richia- 
mano a vicenda? Beh, nessun problema, verreb- 
be da rispondere, e invece il problema c'è: anche 
se non si vede guardando i'diagrammi sintattici, 
ogni cosa (procedura, costante, variabile, array) 
deve essere dichiarata prima dell'uso, quindi se 
A, B, C, D sono dichiarate nell'ordine, A non potrà 
mai chiamare D. La soluzione è semplice (anche 
se dubito che abbia nulla a che vedere con 
quello che Wirth intende con procedure interne 
ad altre procedure, comunque il metodo è molto 
comodo e ho deciso di seguirlo); basta dichiara- 
re le procedure una dentro l'altra: 


PROCEDURE A; 
PROCEDURE B; 
PROCEDURE C; 
PROCEDURE D; 
<codice per D> 
<codice per C> 
<codice per B> 
<codice per A> 
<codice programma principale> 
Con questo schema ogni procedura è dichiarata 
prima dell'uso (per essere ortodossi una procedu- 
ra A dichiarata dentro una B dovrebbe essere 
materiale riservato di questa e non essere visibile 
da un'altra procedura che non sia anch'essa in- 
tema a B, ma amo troppo le comodità offerte 
dalla ricorsione per essere ortodosso). 


Qualcuno si sarà già accorto che manca qual- 
cosa: possiamo fare cose molto belle e divertenti, 


ma un programma è interessante se dialoga col 
mondo esterno; se fa il saggio della montagna e 
non mostra niente non interessa a nessuno. 

Il linguaggio offre due soluzioni al probema. 

La prima è la dichiarazione di subroutine estera, 
che deve comparire all'inizio del programma nel- 
la forma: 


INTERFACE <name1> <num1>,<name2> 
<NUM2>...; 


Per esempio, data una dichiarazione: 
INTERFACE HPLOT 2,HCOLOR 1; 


il programma riconoscerà HPLOT come una su- 
broutine con due parametri e HCOLOR come 
una subroutine con un parametro e accetterà 
quindi gli statement: 


CALL HPLOT X+3XxA.Y%5; 
CALL HCOLOR 2xl; 


Una completa trattazione di questo argomento è 
al di là degli scopi di questa puntata introduttiva; 
posso comunque anticipare che è presente nella 
libreria del linguaggio una nutrita serie dicoman- 
di grafici, che aspetta solo di essere dichiarata 
nella sezione INTERFACE di qualche programma. 
Un altro modo di accedere al linguaggio mac- 
china, e quindi attraverso di esso a tutto il sistema, 
è tramite il comando a, che permette di inserire 
delle linee in assembler all’interno del codice pro- 
dotto dal compilatore; un esempio interessante è 
contenuto nel programma Hanoi, ove un loop in 
assembler è stato scritto per leggere un carattere 
da tastiera. Una completa comprensione della 
dichiarazione INTERFACE e del comando arichie- 
de comunque una certa conoscenza del compi- 
latore, che descriverò nella prossima puntata. 


(Continua) [e | 


Sul listato del programma “Monitor per C 64”, pubblicato sul n. 51, constatiamo un errore (molto banale) nelle linee 


15320 e 15340, dove compare: 


fa 


Praia | 


i 
194 


‘R=b5 THEM GOSURIdaza 


Con queste correzioni il programma girerà perfettamente, sempre che i DATA siano copiati con certosina attenzione. 
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Dizionario 


Sarà capitato a tutti coloro che hanno, o hanno avuto, la sfortuna di andare a scuola di dover 
fare una traduzione da o in una lingua straniera; esiste poi una categoria di gente 
continuamente alle prese con traduzioni a causa del loro lavoro. 

Dal giorno in cui crollò la Torre di Babele ad oggi, è stata fatta poca strada verso 
l’unificazione del linguaggio né, d'altra parte, ne è stata fatta molta di più nel campo della 
traduzione automatica, anche se qualcosa si muove in questa branca dell’intelligenza 
artificiale. 

A tutt'oggi, dunque, l'unico metodo per eseguire una traduzione è armarsi di pazienza e di un 
buon vocabolario e accingersi a tradurre frase per frase. 


di Luca Brigatti 


L a parte senz'altro più noiosa, e per la quale si 
perde più tempo, in una traduzione è la ricer- 
ca, sul vocabolario, dei termini che non si cono- 
scono, ma decisamente più seccante è il ricerca- 
re parole già cercate precedentemente, magari 
pochi minuti prima nell'ambito della stessa tra- 
duzione e già trovate, ma di cui proprio non si 
riesce a ricordare il significato. 
Quando questo succede non resta che accin- 
gersi a ricercare il vocabolo, maledicendo l'inuti- 
le perdita di tempo, e a ritrovare il significato che, 
peraltro, avevamo “sulla punta della lingua”. 
Il programma proposto, fra l'altro, serve appunto 
a evitare questa seccatura. 
Basterà, ogni qualvolta si stia facendo una tradu- 
zione, lasciare acceso il calcolatore con il pro- 
gramma inserito; quando si incontra una parola 
sconosciuta la si cerca sul vocabolario per la 
prima (che sarà anche l'ultima) volta, quindi si 
procede a memorizzare nel calcolatore parola e 
significato. Finita la traduzione procederemo a 
memorizzare su nastro i vocaboli. i 
Il risparmio di tempo e di fatica è evidente; 
l'incombenza di dover inserire i vocaboli in me- 
moria, la prima volta, è abbondantemente com- 
pensata dalla rapidità con cui viene ritrovato tale 
vocabolo le volte successive. 
Senza contare poi che i vocaboli in gioco sono 
necessariamente limitati e piuttosto ricorrenti, per 
cui la fase “inserimento”, dopo diverse traduzioni, 
non verrà quasi più utilizzata, mentre la fase “ri- 
( rail sarà sempre utile, traduzione dopo tradu- 
zione. i 


Il numero di vocaboli che può essere Mmemorizza- 
to è di circa 1200 x 2 parole di 15 lettere ciascuna 
in uno Spectrum con 48 Kbyte di RAM e di circa 
180 x 2 (sempre di 15 lettere ciascuna) in uno 
Spectrum con 16 Kbyte di RAM. À 
È ovvio che, diminuendo il numero di lettere mas- 
simo assegnato ad ogni parola aumenteranno le 
parole memorizzabili. 
Ad esempio, riducendo a 10 la lunghezza massi- 
ma delle parole il numero di vocaboli memorizza- 
bili sale a circa 280x2 in uno Spectrum a 16 Kbyte 
e a circa 1900 x 2 su un 48 Kbyte: va notato però 
che tale soluzione non è sempre consigliabile 
perché, anche con lingue come l'inglese, se è. 
vero che la maggior parte dei vocaboli ha una 
lunghezza minore di 10 lettere, non sono comun- 
que poche quelle che eccedono tale lunghezza, 
mentre sono molto meno quelle che eccedono 
le quindici lettere, e ciò è anche più vero con 
lingue come francese, tedesco o italiano. 
Dopo aver digitato il programma (nel quale, per 
uno Spectrum 16 K, la linea 1240 andrà sostituita 
come segue: 

1240 FOR w = VAL a$ (1, 1) TO 180) 
questo dovrà essere salvato con l'istruzione: 

SAVE “DIZIONARIO” LINE 1000 

e, la prima volta (e solo la prima volta) che viene 
usato il programma si digitino le seguenti istruzio- 
ni: è “er a Pr 


per uno Spectrum 48 Kbyte, oppure: © 


Ù» 
ALE 
+4 


ntram- 


vocaboli, a$ (1, 1) sarà uguale a “6”. All'inizio la 
prima variabile da inserire sarà con indice 2, ecco 
il perché dell'assegnazione vista più sopra. 

Il programma stesso aggiornerà il contatore ad 
ogni nuovo inserimento. 
A questo scopo si è scelta proprio una variabile 
stringa dimensionata, che altrimenti conterrebbe 
un vocabolo (quindi i vocaboli effettivamente 
memorizzabili, stante la DIM vista più sopra, sono 
in realtà 1199), perché tale variabile viene salva- 
ta e caricata con i vocaboli stessi, informando il 
calcolatore su quanti vocaboli sono già presenti, 


INGL 


ZX SPECTRUM 


RS LOLIONO 


ame 


informazione che altrimenti il calcolatore non po- 
trebbe ottenere se si usasse una variabile con- 
venzionale, che perderebbe il suo valore ogni 
qualvolta il calcolatore viene spento. 

Dopo aver per la prima volta usato il programma 
occorrerà salvare i vocaboli in un'area del nastro 
succesiva a quella in cui è stato salvato il pro- 
gramma, avendo cura di annotare il valore del 
counter, poiché tutte le successive memorizza- 
zioni avverranno in quella stessa area, sovrappo- 
nendo i nuovi file ai vecchi. 

Il programma stesso, una volta caricato, cariche- 


NAR 


@ LORD 


1 

1 

183 CLS :; 
1048 PRINT " 
1 Per 
i nuUuori 
nOomi"*" 4 Pe 


ei 

ea 

BORDER 272: _CLS 
e3 : 

Q4 


1286@ PA})USE &@&: 
1070 CLS 


SRRTRENE” 
è GO SUR 1510: PAPER ?: 


PRINT 


DATAR_a25 0} 
INK © 


ai i: > PS 


@ Per ricercare" ’" 
insefire"*" 
È > regie 


2 Per salvare 
è Per ilistare i 


f# COrr 
1050 POKE 23658, 


RA ce" 
8: REM SERENE) 
LÈT a=UAL INK 


105 GO TO 109@x(a=©) +123@» (a=1) 
+133* (a =2) +139@0+* (a -3) +14650* ia =4 


) 
1092 RE 

viva Sigari 
iiie 
CLS 


PAUSE @: 


per 
IF xs=" 


Mm 
S 9 


PPPPPePPPPAPPHhIQIPdb 
PMVUMPMBPPPRPROPRERLPOP 
UAWDVP SUOYJ OIAGWU 

804998 

z 

3 

nm 


909999 


PRINT 
INPUT 


"Disponi della paro 
Italiana"' "23 


"Scrivi 
USCire)"'x$% 
STOP 


LET LU=LEN x$% 


FOR Lea TO UA 


"SCfivi la 


n 


L 
Inglese 


LET lti=UVAL INKEY $: 


{ S 
"THEN. G0 TO 1 


ta parola 


);a${r,2) 


continuare 


dt. 
THEN GO TO 12170 


RE 
FOR w=UVAL as(1.1) TO 1200 
(°° Alia 


parola BG 
b$ 


{ STOP per uscire) "’ 
IF 


bg=" 
1) =STR$ w: 
8@ LET 


. 
. 


Cc 
12 PRINT 


w 
FLASH 1; "NON 


Ce” PIU 


i i ida IM MEMORIS PER ALTRI TE 


135@ PRINT 
Oo,insefrisci 


Figura 1] - Listato del 
programma ‘‘Diziona- 
rio”. 
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Seguito figura 1. 
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ZX SPECTRUM 


a verifica, q4U 
nastro e Pr 
Pe gt (Premi CEI 
verifica.) " 
2136@ PAUSE &@: 
GO _TO_ 1032 


indi fa partire il 
emi qualsiasi 
N“ se non vuoi la 


IF INKEY$="5"N"“ THEN 


tast 


137@ VERIFY dA 1 Aligi pi DATA a8$() 


1380 GO T 
RE 

FO L= 
PRINT Li") 


170@ BEEP .1 


le). "SENTERT. Daf 


i il numero del 
gere ";nc 
i la parola Bb 


ta parota_BpP 


N 
D=a5) 


N 
(RND+*2) #+239: LET 


(RND*2)} +15@: LET 
Y 


in)+*8+44 
px; LET iyu=pfW4-P 


RAW ix.iM 
{(RND+59) -20 

RAY ix xi 
{(RND*69) -20 


171@ PRINT FLASH 1;A8T ri,in+z;zé 


NEXT 


: E) 
173@ PRINT INK_9; AT 21,6; “By Dri 


9a ìî Luca 1963" 
1749 BRIGHT_ ®: OVER © 
1758 PAUSE 380: RETURN 


1762 DATA "DIZIONARIO", 1@8.,8, "IT 
ALIANO- INGLESE ",92,19," ENGLISH- 


ITALIAN" ,76,12 


rà i vocaboli già memorizzati. Verrà quindi chia- 
mata la routine alla linea 1460, routine che con- 
tiene la presentazione. 

Terminata la presentazione apparirà il menu che 
comprende cinque opzioni: 

0 ricerca; 

1 inserimento; 

2 salvataggio dei nuovi file; 

3 lista dei nomi in memoria; 

4 correzione. 

Quindi viene attesa una scelta alla linea 1060. 
La POKE alla linea 1050 serve per abilitare auto- 
maticamente i caratteri maiuscoli (caps lock). 


Una volta fatta la scelta la linea 1080 provvede a 
far proseguire il programma dal punto in cui vie- 
ne effettuata la funzione selezionata dal menu; 
tale linea è una simulazione della istruzione: ON... 
GO TO... che manca sullo Spectrum: ammetten- 
do di aver scelto l'opzione 3 (lista deinomi) solo la 
condizione logica a = 3 sarà vera (valore 1) e le 
altre saranno false (valore 0), per cui il risultato 
dee che è l'argomento del GO TO 
sarà: 

1090 x0+1230x0+1330x0+1390x1+1460x0 
= 1390 

ed è proprio alla linea 1390 che inizia la routine 


che lista le parole memorizzate. 
Le linee da 1090 a 1230 contengono la routine 


si 


inserire la parola da ricercare: il programma vi- 
sualizza immediatamente tale parola, insieme 
alla traduzione. 

Una caratteristica che rende molto versatile e 
potente questo programma risiede nel fatto che 
la parola di n lettere da ricercare viene confron- 
tata con la parte iniziale lunga n lettere di ogni 
stringa, ignorando tutte le altre lettere (o spazi) 
che possono seguire. 

Ad esempio, digitando BOOK (libro) verrà visua- 
lizzato anche BOOKMAKER (allibratore), sempre 
che anch'esso sia presente in Memoria, oppure 
digitando H verranno visualizzate tutte le parole 
che iniziano per H e così via. 

Questo ci consente, al momento dell'inserimen- 
to, di riempire gli spazi che avanzano come più ci 
fa comodo, senza che questo interferisca con la 
ricerca; ad esempio potremmo scrivere: 

GO WENT GONE 

RUN RUN RUN 

MOUSE pi. MICE 

MAN pl. MEN 

OX pi. OXEN 

CHEQUE am CHECK 

COLOUR am COLOR 

HEART a. fig. 


Dove, ovviamente, a. fig. sta per “anche figurato”, 
pi. sta per “plurale”, am per “americano” e dove 
WENT e GONE e anche RUN e RUN sono i passati e 
participi passati rispettivamente di “to go” e di “to 
run” 


Queste stringhe verranno visualizzate per intero, 


insieme alla loro traduzione, digitando: GO; RUN; 


MOUSE: MAN: OX; CHEQUE; COLOUR e HEART co- 
me pure: ANDARE; CORRERE; TOPO; UOMO; BUE; 
ASSEGNO; COLORE e CUORE. 
Tormando a ciò che si è detto prima, se è vero che 
stringhe di quindici caratteri consentono meno 
parole che non stringhe di lunghezze minori, è 
anche vero che maggiore è la lunghezza di una 
stringa e maggiori sono le informazioni che pos- 
sono essere memorizzate relativamente a ogni 
:vocabolo. 

La ricerca è di tipo sequenziale e non dicotomi- 
co, come parrebbe più conveniente avendo a 
che fare con liste ordinabili, poiché tale ricerca 


può essere effettuata sia sulla lista italiana sia 
sulla lista inglese, mentre l'ordinamento alfabeti- 
co può essere fatto solo su una lista; se venisse 
fatto su entrambe, non vi sarebbe più corrispon- 
denza nel contenuto dell'atray a$; cioè, se per 
esempio a$ (5, 1) contiene “UOMO”, a$ (5, 2) 
deve contenere “MAN”. 

Il programma ci chiede quindi se vogliamo conti- 
nuare la ricerca (nel caso che la parola che 
cerchiamo abbia più di un significato). 

Arrivati a fondo lista, rispondendo “N” a tale 
richiesta; viene sottoposto un altro vocabolo da cer- 
care; rispondendo STOP (Symbol shift + A) sitorma 
al menu. 

Le linee da 1230 a 1320 contengono la routine 
inserimento, il cui uso è pilotato dal programma 
stesso. ° 

3. Ione in questa routine finché non si preme 
Le linee da 1330 a 1380 contengono la routine di 
salvataggio dei nomi su nastro: l'uso di tale routi- 
ne è pilotato dal programma stesso; si abbia solo 
cura di posizionare comettamente il nastro. 

Le linee da 1390 a 1450 contengono la routine 
che scrive sul video i vocaboli memorizzati. 

Per avere la stampa su carta basta sostituire le 
PRINT alle linee 1410 e 1420 con LPRINT. 

Le linee da 1460 a 1500 contengono la routine di 
correzione. 

Dopo aver annotato il numero del vocabolo erra- 
to lo si inserirà all'INPUT di linea 1470, cui seguirà 
l'inserimento del vocabolo corretto. 

Le linee da 1510 a 1760 contengono la presenta- 
zione. 

Ritengo superfluo raccomandare di non usare, 
qualora il programma si dovesse fermare, le istru- 
zioni RUN, CLEAR 0 NEW, ma di dare GOTO 1030 
per tornare al menu principale. 

Il programma, così com'è, funziona per le lin- 
gue italiana e inglese; con poche modifiche alle 
stringhe nelle linee 0, 1260, 1480 e 1760 (peraltro 
non necessarie al buon funzionamento del pro- 
gramma), e con l'aggiunta dei caratteri definibili 
dall'utente, funziona anche con altre lingue, co- 
me il francese (6), il tedesco (i, 8), lo spagnolo 
(N). le lingue scandinave(ò, à, 9) e, con modifi 
che più sostanziali, anche con lingue che adot- 
tano un alfabeto diverso, come il greco, il russo, 
l'ebraico e altre, o addirittura con lingue come il 
Cinese o il giapponese (l'autore ha già scritto le 
versioni per il greco ed il giapponese). el 
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Calcolo di strutture 


"i 


Con un programma adatto ad una tipologia di strutture assai ricorrenti si può ridurre di più 
dell'80% il lavoro di ‘‘input’’ dei dati e risparmiare sulla occupazione di memoria, in modo da ' 


rendere accessibile a piccoli computer la risoluzione di problemi di medie dimensioni. 


di Giovanni Malato 


I calcolo strutturale, avvalendosi dell'uso del 

computer, utilizza modermi metodi generali 
di analisi, basati sull’algebra.matriciale (vedi l'ar- 
ticolo “Le nuove frontiere del calcolo strutturale” 
di G. Forcolini su Bit dell'Aprile 1983). È in questo 
modo possibile studiare strutture di configurazio- 
ne irmegolare qualsiasi, sfruttando le proprietà del- 
la matrice di rigidezza della struttura con l'algorit- 
mo di Cholesky. 
Ma, ed è questo quello che si vuole sostenere in 
questa sede, il riferirsi sempre ed in ogni caso ad 
Un programma generale non è sempre conve- 
niente, per almeno due motivi: 
1) il metodo generale deve naturalmente preve- 
dere una casistica che, per casi ricorrenti e deli- 
mitati, può essere assai semplificata, con un ri- 
sparmio sensibile della Memoria del computer; 
2) il metodo generale, pur ottenendo le soluzioni 
richieste, non può, per sua natura, essere appro- 
fondito e specificato con le caratteristiche che 
può invece fomire un programma più ristretto, ma 
più aderente alle necessità del progettista. 

Un concreto paragone mostrerà in maniera più 

evidente quanto sopra enunciato; con riferimen- 
to all'esempio riportato più avanti notiamo: nel 
metodo della matrice di rigidezza ogni punto di 
applicazione del carico è individuato come un 
nodo, per cui per ogni asta, o tratto di asta, a 
seconda della “discretizzazione”, è necessario 
fornire: le due coordinate iniziali, le due coordina- 
te finali, l'area, il momento d'inerzia, le tre più tre 
componenti di spostamento del punto iniziale e 
del punto finale ed infine i carichi, cioè 13 dati per 
ognuna delle 13 travi, o tratti di trave, e perognu- 
no degli 11 pilastri dell'esempio. Ancora, riferen- 
domi sempre all'esempio qui di seguito, per un 
telaio ad 11 nodi avremo 3 componenti di spo- 
stamento per ogni nodo, più 3 componenti perle 
cinque forze concentrate, in totale 48 incognite 
per una struttura che non può nemmeno essere 
considerata di media dimensione. 
In conclusione, un grande lavoro di “input” (più di 
300 dati), che può scoraggiare l'utente, ed un 
grande impegno di memoria e cioè necessità di 
elaboratori costosi non alla portata quindi di stu- 
denti e di piccoli liberi professionisti. 

Se, viceversa, decidiamo di utilizzare un pro- 


gramma che sia limitato al solo caso, che però è 
assai ricorrente; delle strutture a maglie rettango- 
lari regolari e con aste a momento di inerzia co- ” 
stante, ci accorgiamo che è assai elevata la sem- 
plificazione in fase di input giacché, dopo aver 
fomito, una volta per tutte, le luci delle campate 
e le altezze dei vari piani, dovremo solo fornire le 
rigidezze delle aste edi carichi: intotale poco più — 
di 40 dati per cui il rapporto è, in questo caso, di 1 
a 7; l'algoritmo di soluzione si basa su una proce- " 
dura di calcolo che si ripete per tutti gli 11 nodi, il È 
che vuol dire basso dimensionamento dei vettori | 
e delle matrici; la precisione dei risultati dipende 
solo dal numero di iterazioni che assolutamente Li 
non impegna la capacità di memoria del com- 
puter, il che vuol dire possibilità di utilizzare com- 
puter dal prezzo assai contenuto. A 
Ancora un aspetto assai importante da mette- 
re in luce: con un programma adatto a questa 
tipologia di strutture si possono ottenere dati par- 
ticolarmente utili, che difficilmente potrebbero % 
essere raggiunti con un programma del tutto ge- : 
nerale, che non può essere così duttile. Con il 
programma che presento ecco quali altri dati si b 
possono avere: individuazione della ascissa, non- 
ché valore del momento massimo positivo perun 
corretto dimensionamento delle travi in ogni u 
campata; calcolo automatico della sommatoria 
degli sforzi assiali sui pilastri, piano per piano, con 
la possibilità quindi di dimensionamento com- 
pleto degli stessi; input dei dati, senza necessità ra 
di una preparazione preliminare (cioè il compu- 
ter calcola automaticamente le rigidezze ed i 
momenti di incastro perfetto a partire dai dati del i 
progetto architettonico); facilità di controllo del- 
la validità dei dati in output (sommatoria nulla 
dei momenti intorno al nodo e degli sforzitaglian- 
ti nei pilastri, per ogni piano). O 


Analisi del programma e ate ja : 


Ia 
Il programma si divide in tre se; 
100 alla linea 1390 sono conten 
per l'input; dalla linea 1400 alla li 
un GOSUB alla linea 2390 fl 
sono contenute le istruzioni per | 
vo; dalla linea ‘ a line 
te le istruzioni d 


Per i dimensionamenti delle righe 120 e 130 si è 
preferito utilizzare, fin dove possibile, i vettori che, 
a parità di elementi, occupano meno spazio del- 
le matrici bidimensionali (che sarebbero state 
più comode); sempre nell'intento di risparmiare 
spazio in memoria le variabili RN, RO, RE, RS, che 
all'inizio sono i fattori di rotazione del metodo Kani 
e che non intervengono più da un certo punto in 
poi, sono state riutilizzate per il calcolo dei mo- 
menti di estremità definitivi. 

Riprendiamo l'esame dall'inizio: la prima sezio- 
ne contiene alcune opzioni alle linee 190, 260, 
880: si chiede cioè all'utente di decidere se desi- 
dera che il calcolo venga eseguito tenendo con- 
to o meno degli spostamenti orizzontali (190); se 
desidera introdurre direttamente le rigidezze del- 
le aste o se desidera che il calcolo venga esegui- 
to automaticamente dal computer a partire dal- 
le dimensioni di progetto (260); il calcolo delle 
rigidezze, per sezioni rettangolari, viene eseguito 
in quest'ultimo caso alle righe 420 e 730. L'ultima 
opzione riguarda la decisione di immettere diret- 
tamente i momenti di incastro o far eseguire il 
calcolo dal computer (880); in quest'ultimo caso 
occorrerà fornire il carico uniforme su ogni trave 
(1070) e l'ascissa e l'intensità di una eventuale 
forza concentrata (1130); il calcolo di momento 
e taglio di incastro perfetto viene eseguito con le 
istruzioni da 1090 a 1200; nel caso l'utente deside- 
rasse immettere i momenti di incastro perfetto 
direttamente, la istruzione 930 rimanda la prose- 
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cuzione del programma alla linea 1220. 
Una caratteristica importante riguarda la previ- 
sione di sbalzi, per esempio balconi, a sinistra del 
primo nodo del piano 0 a destra dell'ultimo nodo 
del piano; le istruzioni relative sono alle righe da 
950 a 1050. 

| momenti di estremità definitivi sono ottenuti 
con le istruzioni dalla linea 1750 alla linea 1920. 
L'ascissa di momento massimo positivo si ottiene 
trovando il punto dove si annulla il taglio (linee 
da 2030 a 2180). Alla linea 2280 inizia il procedi- 
mento per il dimensionamento dei pilastri: par- 
tendo dall'alto si trova la sommatoria di tutti gli 
sforzi assiali dei pilastri, piano per piano, così da 
determinare a tutti i piani i carichi dei singoli 
pilastri. 
Tutto il programma utilizza la RAM del BASIC non 
esteso del TI99/4A e cioè circa 14,5 Kbyte; con il 
dimensionamento proposto si possono studiare 
telai di 36 nodi con un massimo di 10 piani o di 6 
campate, cioè strutture di medie dimensioni. 
Per ulteriori dettagli o informazioni vi prego di 
scrivermi in Via Hajech 2 - 20129 Milano. 
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1 SI VLISLISIIGZIONAIA 
1.5 1.2 


ANNA MMM 
1.2 


SUO ARNO NODO (1-1) 
SCRIM LA LUCE DELLA CAMPATA N.1 
® SCRIM IL CARICO UNIFORME IN KG/M 
A. 1 AL PIANO N 1 

® SCRIM L'ASCISSA DA SINISTRA 
agi) DELLA FORZA 

o 

QUIRRA LA LUCE DELLA CAMPATA N 2 


® SCRIVI IL CARICO UNIFORME IN KG/M 
SULLA TRAVE N. 2 AL PIANO N 1 


® SCRIVI L'ASCISSA DA SINISTRA 
SORO DELLA FORZA 

72 

gp SCAM LA LUCE DELLA CAMPATA NN 3 
® SCRMI IL CARICO UNIFORME IN KG/M 
INTRA 3 AL PIANO N. 1 

® SCRMI L'ASCISSA DA SINISTRA 

E L'INTENSITÀ‘ DELLA FORZA 


@SCRIM IL RAPPORTO Ke=J/L PER | 
PILASTRI CHE ARRIVANO AL PIANO N. 2 
PILASTRO (2-1) 0.2 = PILASTRO (2-2) 0.2 
PILASTRO (2-3) 0.2 PILASTRO (2-4) 0,2 
@ SCRIVI IL RAPPORTO K=J/l PER | 
PILASTRI CHE ANO AL PIANO N 3 
PILASTRO 839 0.4 PRASTRO(3-2) 0.4 
PILASTRO (3-3) 0.4 PI (3-4) 0 


. IL RAPPORTO K=J/L PER LE 
TRAM DEL PIANO N. 1 


TRAVE 1 4.8 TRAVE 2 4.2 TRAVE3 42 
TRAVI DEL PIANO N. 2 
TRAVE 1 4.6 TRAVE 2 4.2 TRAVE 342 


TRAVI DEL PIANO N 3 
TRAVE 1 4.6 TRAVE 2 4.2 TRAVE 30 


72 
EVENTUALE MOMENTO A DESTRA 
DEL NODO (1-4) 


o 
DABLIO A CORRA DEL NODO (1-4) 
ALTEZZA DEL ANO N 2 


EVENTUALE MOMENTO A SINISTRA 
DEL NODO (2-1) 


TAGLIO A GASIRA CEL NODO (2-4) 


è IME IN KG/M 


SCRIVI IL CARICO UNIFORME 
ri 1 ALPIANON. 2 


IL PROCEDIMENTO SI RIPETE PER 
TUTTI | PIANI 


Figura 1 - Un esempio di 
schema di telaio. In ne- 
retto la risposta dell'u- 
tente. 


Figura 2 - Emissione dei 


dati. 


=0 


COLONNA N. 1 0.28 SOMMA DEGLI SFORZI TAGLIANTI IN OGNI PIANO 


0| COLONNAN.1 | 


COLONNA N, 2 | 


SFORZI NORMALI PIL 


SOMMA DEI CARICHI 


COLONNA N. 3° 0.34 1.8 - (16-2+10) + = 7 
COLONNA N, 4 -0.62 +72 -5= 1116 


COLONNA N. 2 0.44 


COLONNA N. 3 


5.6 +| 6.37 + 38.01 + 
50.31 + 16.91 = 1116 | COLONNA N. 4 


> 


le) 
$ 


N.B:: CONFRONTA CON L'ESEMPIO CONTENUTO NEL LIBRO: “CALCOLO DEI TELAI MULTIPLI" DEL DR, ING. G. KANI 
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100 REM GIOVANNI MALATO,VIA HAJ 
ECH 2,20129 MILANO.TEL.02/741952 


110 CALL CLEAR 
120 DIM HP(11),KS(37) ,KE(37) ,MS( 
37) ,MD(37) ,RN(37) ,R0(37) ,RE(37), 
RS(37) ,KO(37) ,KN(37) ,LC(7) ,TD(37 
) ,TS(37) ,QL(37) , 
130 DIM F(37) ,ASS(37) ,MPOS(37),E 
1(7) ,ES(11) ,KD(11,7) ,MFON(7),N(1 
1,7) ,QW7W(11,7) 

"TELAI MULTIPLI" 


INPUT "NUMERO DEI PIANI 
N3:BP 


INPUT "NODI FISSI 
1 
NODI SPOSTABILI 


IF Z=1] THEN 220 
IF Z<>2 THEN 190 


FOR NP=] TO BP 
IF NP>] THEN 270 
INPUT "VALORI RIGIDEZZE 
] 
DIMENSIONI PILASTRI/TRAVI 


IF L=] THEN 290 

IF L<>2 THEN 260 

PRINT ::: 

PRINT "ALTEZZA DEL PIANO N." 


INPUT HP(NP) 
PRINT st 
IF L=] THEN 360 
PRINT "SCRIVI LARGHEZZA E BA 
SE DEI PILASTRI CHE TERMINANO AL 
PIANO N.";NP 
350 GOTO 370 
360 PRINT "SCRIVI IL RAPPORTO K= 
J/L PER I PILASTRI CHE ARRIVANO 
AL PIANO N.";NP 
370 FOR NC=1 TO AC+1] 
380 M=M+1] 
390 PRINT "PILASTRO (";NP;"-";NC 
: 4 Lal 
400 IF L=] THEN 440 
410 INPUT HF,BF 
420 KS(M)=HF°3*BF/12/HP (NP) 
430 GOTO 450 
440 INPUT KS(M) 
450 EDD(NP)=EDD(NP)+KS(M) 
460 NEXT NC 
470 INPUT "SE HAI SBAGLIATO PREM 
I " "KH" n" " : RY$ 
480 IF RYS<>"H" THEN 520 


RE" 


M=M- (AC+1) 
500 EDD(NP)=0 
GOTO 250 


FOR NP=1] TO BP 
570 FOR NC=1 TO AC 
580 IF NP>] THEN 630 

590 PRINT ::: 

PRINT "LUCE DELLA CAMPATA N. 


610 INPUT LC(NC) 

620 PRINT ::: 

630 IF L=] THEN 670 

640 IF NC>1] THEN 690 

650 PRINT "SCRIVI L'ALTEZZA E LA 

BASE DELLA TRAVE DEL PIANO N." 

: NP 

660 GOTO 690 

670 IF NC>] THEN 690 

680 PRINT "SCRIVI IL RAPPORTO K= 

J/L PER LE TRAVI DEL PIANO";NP 

690 M=M+] 

700 PRINT "TRAVE (";NC;"-";NC+1; 

Maj n n) 

710 IF L=] THEN 750 

720 INPUT HT,BT 

730 KE(M)=HT3*BT/12/LC(NC) 

740 GOTO 760 

750 INPUT KE(M) 

760 NEXT NC 

770 INPUT "SE HAI SBAGLIATO PREM 

T sioggroni ":RS$ 

780 IF RS$<>"H" THEN 810 

790 M=M-AC 

800 GOTO 570 

810 M=M+] 

820 NEXT NP 

830 M=0 

840 PRINT ::: 

850 FOR NP=1] TO BP 

860 IF NP>] THEN 890 

870°*PRENT us 

880 INPUT "MOMENTI D'INCASTRO 
1 


CALCOLO MOMENTI E TAGLIO 27 


890 IF Q=1] THEN 910 

900 IF Q<>2 THEN 880 

910 FOR NC=1] TO AC+1 

920 M=M+] 

930 IF Q=1] THEN 1220 

940 IF NC<>] THEN 990 

950 PRINT "EVENTUALE MOMENTO A S 
INISTRA DEL NODO (";NP;"-";NC;") 
n 


960 INPUT MS(M) 

970 PRINT "TAGLIO A SINISTRA DEL, 
NODO (":NP;"-"=NC8)" 

980 INPUT TS(M) 

990 IF NC=(AC+1) THEN 1020: 


Prrsssssazzzzz 904 


1000 IF NP=1] THEN 1070 
1010 IF NC<>(AC+1) THEN 1070 
1020 PRINT "EVENTUALE MOMENTO A 


DESTRA DEL NODO (";NP;"-";NC;") 
n" 


1030 INPUT MD(M) 

1040 PRINT "TAGLIO A DESTRA DEL 
NODO ("END PeNGt)y n 

1050 INPUT TD(M) 

1060 GOTO 1210 

1070 PRINT "SCRIVI IL CARICO UNI 

FORME INKG/M SULLA TRAVE (";NC;" 

-";NC+1;")"; "AL PIANO N.";NP 

1080 INPUT QL(M) 

1090 MD(M)=-QL(M)*LC(NC) 72/12 

1100 MS(M+1)=QL(M)*LC(NC) 72/12 

1110 TD(M)=QL(M)*LC(NC)/2 

1120 TS(M+1)=QL(M)*LC(NC)/2 

1130 INPUT "SCRIVI L'ASCISSA DA 

SINISTRA E L'INTENSITA' DELLA FO 

RZA ? ":ASS(M) 

1140 INPUT F(M) 

1150 IF ASS(M)=0 THEN 1210 

1160 Z1=LC(NC)-ASS(M) 

1170 MD(M)=MD(M)+(-F(M)*ASS(M)*Z 

1°2)/(LC(NC) 72) 

1180 MS(M+1)=MS(M+1)+F(M)*ASS(M) 

"2*Z1/(LC(NC) 72) 

1190 TD(M)=TD(M)+F(M)*Z1/LC(NC) 


1200 TS (M+1)=TS(M+1)+F(M)*ASS(M) 
/LC (NC) 

1210 GOTO 1240 

1220 PRINT "SCRIVI I MOMENTI A S 
INISTRA,DESTRA DEL NODO ("sNP;"- 
" sNC; ni " 

1230 INPUT MS(M) ,MD(M) 

1240 A=-2* (KE(M)+KS(M)+KE(M-1])+K 
S(M+AC+1)) 

1250 RN(M)=KS(M+AC+1)/A 

1260 IF NC=1] THEN 1290 

1270 RO(M)=KE(M-1)/A 

1280 IF NC=AC+1] THEN 1300 

1290 RE(M)=KE(M)/A 

1300 RS(M)=KS(M)/A 

1310 KD(NP,NC)=-].5*KS(M)/EDD (NP 
) 

1320 NEXT NC 

1330 INPUT "SE HAI SBAGLIATO PRE 
MI "n “K" " “:RT$ 

1340 IF RT$<>"H" THEN 1370 

1350 M=M-(AC+1) 

1360 GOTO 860 

1370 NEXT NP 

1380 CALL CLEAR 

1390 PRINT "ATTENDERE PREGO" 
1400 PRINT ::: 

1410 GOSUB 2390 

1420 FOR E=1 TO 10 

1430 M=0 

1440 FOR NE=1 TO BP 

1450 ES(NE)=0 

1460 FOR NQ=1 TO AC+1 

1470 M=M+] 


1480 IF NE=] THEN 1510 
1490 ES(NE) =ES(NE)+KS(M)+KN(M-(A 
C+1)) 

1500 GOTO 1520 

1510 ES(NE)=ES(NE)+KS(M) 

1520 NEXT NQ 

1530 FOR NR=1] TO AC+] 

1540 QW(NE,NR)=ES(NE)*KD(NE,NR) 


1550 
1560 
1570 
1580 
1590 
1600 
1610 


NEXT NR 

NEXT NE 

M=0 

FOR NP=]' TO BP 

FOR NC=1] TO AC+] 

M=M+] 

IF E=l] THEN 1660 

1620 IF M>(AC+1) THEN 1650 

1630 ACC=MS(M)+MD (M)+KE(M-1)+KO( 
M+1)+KS(M+AC+1)+QW(NP,NC)+QW (NP+ 
1,NC) 

1640 GOTO 1660 

1650 ACC=MS(M)+MD(M)+KE(M-1)+KO( 
M+1)+KS(M+AC+1)+KN(M- (AC+1))+QW( 
NP,NC)+QW(NP+1],NC) 

1660 GOSUB 2390 

1670 NEXT NC 

1680 NEXT NP 

1690 NEXT E 

1700 M=0 

17)0 FOR NP=1] TO BP 

1720 IF NP>] THEN 1800 

1730 FOR NC=1] TO AC+1 

1740 M=M+] 

1750 MFON(NC)=KS(M)+ES(1)*KD(1,N 


Cc) 

1760 PRINT "MOMENTI ALL'INCASTRO 
CON LA FONDAZIONE:COLONNA N.";N 

C:MFON (NC) 

1770 NEXT NC 

1780 PRINT ::: 

1790 M=0 

1800 PRINT "AL PIANO N.";NP 

1810 FOR NC=1 TO AC+1 

1820 M=M+] 

1830 PRINT "NODO (";NP;"-";NC;") 
" 

1840 RE(M)=MD(M)+2*KE(M)+KO(M+]) 


1850 
1860 
NC) 
1870 N(NP,NC)=-(RS(M)+MFON(NC))/ 
HP (NP) 

1880 GOTO 1910 

1890 RS(M)=2*KS(M)+KN(M-(AC+1))+ 
ES(NP)*KD(NP,NC) 

1900 N(NP,NC)=-(RS(M)+RN(M-(AC+1 
)))/HP (NP) 

1910 RO(M)=MS(M)+2*KO(M)+KE(M-1) 


IF M>(AC+1) THEN 1890 
RS (M)=2*KS (M)+ES (NP) *KD(NP, 


1920 RN(M)=2*KN(M)+KS(M+AC+1)+ES 
(NP+1)*KD(NP+1],NC) 

1930 PRINT "(";NC;"-":NC-1;")";T 
AB(13);"=";RO(M) 
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1940: PRINT "(SNC SUD"; %) "TA 
B(13);"=";RS(M) 

1950 PRINT "(";NC;"-";NC+1;")";T 
AB(13);"=";RE(M) 

1960 PRINT "("5NC;"- NORD";")":T 
AB(13);"=";RN(M) 

1970 PRINT "TAGLIO SUL PILASTRO 
N.";NC;TAB(13);"=";N(NP,NC) 

1980 IF NC=1] THEN 2210 

1990 TD(M-1)=TD(M-1)-(RE(M-1)+RO 
(M))/LC(NC-1) 

2000 TS(M)=TS(M)+(RE(M-1)+RO(M)) 
/LC (NC-1) 

2010 PRINT "TAGLIO SULLA TRAVE"; 
NC-1;"d";TAB(13);"=":TD(M-1) 
2020 IF Q=1] THEN 2200 

2030 IF ASS(M-1)<>0 THEN 2070 
2040 IE=TD(M-1)/QL(M-1) 

2050 MPOS(M-1)=TD(M-1)*IE-QL(M-] 
)*IE°2/2+MD(M-1) 

2060 GOTO 2140 

2070 FOR IE=.1] TO LC(NC-1)STEP 0 
+01 

2080 IF IE<ASS(M-1)THEN 2090 ELS 
E 2110 

2090 U=TD(M-1)-QL(M-1)*IE 

2100 IF U<=0 THEN 2140 ELSE 2130 


2160 GOTO 2190 
2170 PRINT 
2180 MPOS(M-1)=TD(M-1)*IE-QL(M-1 
)*IE2/2-F(M-1)*(IE-ASS(M-1))+RE 
(M-1) 
2190 PRINT "M POS.(";M-1;")";TAB 
(13) ;'"'=":MPOS(M-1):"A M.";IE;"DA 
SINISTRA" 
2200 PRINT : 
2210 PRINT "TAGLIO SULLA TRAVE"; 
NC;"s":TAB(13);"="TS(M) 
2220 BREAK 
2230 NEXT NC 
NEXT NP 
IF Q=1] THEN 2380 
PRINT! 3: 
M=BP*(AC+1)-(AC+1) 
FOR NP=BP TO 1 STEP -1 


PRINT "AL PIANO";NP 

FOR NC=] TO AC+] 

M=M+] 
EI(NC)=EI(NC)+TS(M)+TD(M) 
PRINT "COLONNA N.";NC;EI(NC 


NEXT NC 
M=M-2*(AC+1) 
NEXT NP 

STOP 

KE (M) =ACC*RE (M) 
KN (M) =ACC*RN (M) 
KS (M) =ACC*RS (M) 
KO (M) =ACC*RO (M) 
RETURN 


2110 U=TD(M-1)-QL(M-1)*IE-F(M-1) 


2120 IF U<=0 THEN 2170 
2130 NEXT IE 

2140 PRINT 

2150 MPOS(M-1)=TD(M-1)*IE-QL(M-1 
)*IE°2/2+RE(M-1) 
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Una partita a golf 


Una simpatica simulazione, per il VIC inespanso, del famoso gioco di origine inglese. 
Campi, buche, angolazioni di tiro e velocità della pallina concentrati in questo 
programma, che saprà certamente impegnarvi. 


di Davide Sarli 


chi non è mai venuto il desiderio di giocare 
A una partita a golf? Il programma presentato, 
se pure non consente di sentire l'erba sotto i piedi, 
permette di soddisfare tale desiderio, attarverso 
una simulazione del gioco, completa di effetti 
grafici e sonori. È stata realizzata appositamente 
per il VIC 20 nella versione inespansa e non richie- 
de l'uso di paddle o joystick. ll gioco rende invece 
necessarie buone doti di orientamento e di misu- 
ra. 
Le regole sono molto semplici. Il programma vi- 
sualizza di volta in volta la posizione della pallina 
e quella della buca da raggiungere, con tanto di 
bandierina annessa. Per ogni colpo viene prima 
richiesta l'angolazione che si vuole dare al tiro, 
compresa tra 0 e 360 gradi rispetto alla linea 
dell'orizzonte, e poi la velocità con cui si farà 
viaggiare la pallina, che può variare da un mini- 
mo di uno ad un massimo di dieci. Dopo ogni 
colpo viene rappresentata la situazione aggior- 


nata comprendente, oltre alla nuova posizione 
della pallina, anche il numero della buca che si 
vuole realizzare ed il numero di tiri già effettuati. Il 
percorso completo comprende nove buche e la 
presenza di funzioni casuali all'interno del pro- 
gramma lo rende sempre diverso ad ogni nuova 
partita. La realizzazione di ogni buca è accom- 
pagnata da un simpatico motivetto. A fine parti- 
ta si ottiene il numero totale dei tiri impiegati per 
coprire l'intero percorso. 

Due parole sulla strategia da usare per i princi- 
pianti o per coloro che non hanno grossa dimesti- 
chezza con gli angoli! Conviene portarsi in prossi- 
mità di ogni buca attraverso spostamenti orizzon- 
tali o verticali, per poi tentare il tito a buca quan- 
do, ormai vicini, è sufficiente utilizzare velocità 
pari a tre o meno. 

Chi invece possiede spiccate doti di percezione 
spaziale può immediatamente puntare a buca. 
Si tenga però conto del fatto che, se la pallina è 
molto distante dalla buca, anche utilizzando la 
massima velocità ed imbroccando la giusta an- 
golazione non si riesce a realizzare la buca con 
un colpo solo. 

Il nostro record personale consiste in 15 tiri per le 
nove buche: vi invitiamo a superarlo. Si imbracci 


la mazza giusta, dunque, e buona fortuna. le 


Listato 1 - Il programma 
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IFX1=X2ANDY]=Y2THEN]2 
IFY]=Y4ANDX]=X4THEN]2 
R=484-(Y]*22)+X] 
IFR<22THENR=22 
IFR>505THENR=505 
IFPEEK(U2+R)<>320ORPEEK(U2+R+1)<>320RPE 
EK(U2+R+22)<>320ORPEEK (U2+R+23)<>32THEN] 2 
20 IFPEEK(U2+R-22)<>320RPEEK(U2+R-44)<>32 
ORPEEK (U2+R-43) <>32THEN]2 
21 POKEU2+R,85:POKEU2+R+1,73:POKEU2+R+22, 
74:POKEU2+R+23, 75 
22 POKEUl+R,0:POKEUl+R+1,0:POKEUl+R+22,0: 
POKEU1]1+R+23,0 
23 POKEU2+R-22,103:POKEU2+R-44,103:POKEU2 
+R-43,105 
24 POKEUl+R-22,2:POKEUl+R-44,2:POKEU]+R-4 
£ 
25 R]=484-(Y2*22)+X2 
26 IFR]<22THENR=22 
27 IFR]>505THENR=505 
28 POKEUl+R1,6:POKEU2+R1,81 
29 W=0:INPUT"{[<]1HOME>] [<1BLK>] ANGOLAZIONE 
";W$S:W=VAL(WS$) 
30 IFW>3600RW<OTHEN29 
31 IFW=0THENW=0.00000]1 
32 PRINT" [<]1HOME>] 8 
33 I=0:INPUT"[<]1HOME>] [<1BLK>]VELOCITA!"; 
IS:I=VAL(I$) 
34 IFI<]lORI>10THEN33 
35 PRINT"[<]1HOME>] ve 
36 POKE36878,15:POKE36877,200:FORZ=1T0150 
:NEXT:POKE36877,0:POKE36878,0 
Y3=(FNSI(W))*I 
X3=SQR(I*I-Y3*Y3) 
IFW>90ANDW<270THENX3=X3*(-1) 
Y4=INT(Y3+Y2) 
IFY4>22THENY4=22 
IFY4<]THENY4=] 
X4=INT(X3+X2) 
IFX4>2]THENX4=2] 
IFX4<]THENX4=] 
POKEU2+R1,32 
POKE36878,15 
FORZ1=160T0170+1*2 
POKE36876,Z] 
FORZ2=1]TOI*5:NEXT 
NEXT 
FORZ1=170+I*2T01]60STEP-1] 
POKE36876,Z] 
FORZ2=1]TOI*5:NEXT 


55 NEXT 

56 POKE36876,0 

57 FORZ=1T0I/3+] 

58 POKE36874,200 

59 FORM=1T030-Z1*5:NEXT 

60 POKE36874,0 

61 FORM=1T0100:NEXT 

62 NEXT 

63 POKE36874,0:POKE36878,0 

64 IFX4=X1ANDY4=Y]THEN69 

65 IFX4=X]+1ANDY4=Y]THEN69 

66 IFX4=X]ANDY4=Y]-]THEN69 

67 IFX4=X1+1ANDY4=Y]-]THEN69 

68 GOTO87 

69 Y2=Y4:X2=X4:RESTORE 

70 R1=484-(yY2*22)+xX2 

7) IFR]<22THENR=22 

72 IFR]>505THENR=505 

73 POKEU]+R1,6:POKEU2+R1,81 

74 POKE36878,15 

75 READA8,A9 

76 IFA8=-]THEN8]1 

77 POKE36876,A8:PRINT"[<]HOME>] [<8CRSR D> 
] [<7CRSR R>] [<1CHR$(213)>] [<6CHR$(192)>][ 
<1CHR$ (201)>]":PRINT"[<7CRSR R>] [<1CHR$(1 
94) >] [<]RVS>] BUCA ![<]RVS OFF>] [< 1CHR$ ( 
200) >] ":PRINT"[<7CRSR R>] [<1CHR$(202) >] [< 
6CHR$ (192) >] [<1CHR$(203)>]" 

78 FORB9=1]TOA9:NEXT 

79 POKE36876,0 


80 GOTO75 
8) POKE36878,0:PRINT"[<1HOME>] [<8CRSR D>] 
[<7CRSR R>] ":PRINT"[<7CRSR R>] 

" 


":PRINT"[<7CRSR R>] 

82 ZT=ZT+1:ZS=ZS+]:yY2=Y4:X2=X4:POKEU2+3], 
32 
83 PRINT" [<]1HOME>] [< 22CRSR D>] BUCA".; ZT; 
TAB(13)"TIRO";28;" 
84 GOSUB96 
85 IFZT<=9THEN]2 
86 GOTO9]1 
87 ZS=ZS+1:yY2=Y4:X2=X4 
88 PRINT[<3CRSR U>]"[<1HOME>] [<22CRSR D>] 

BUCA";ZT;TAB(13)"TIRO";ZS;"{[<3CRSR Dag*® 
89 POKEU2+R1,32 
90 GOTO25 
9] PRINT"[<]CLR>]":ZS=ZS-] 
92 PRINT"[<3CRSR D>] [<]BLK>] BENE! HAI RE 
ALIZZATO":PRINT"[<]1CRSR D>] 9 BUCHE 
IN" 
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93 PRINT"[<3CRSR D>] "ZS;" TIRI" 
94 PRINT"[<3CRSR D>] CERCA DI MIGLIORARE" 
:PRINT"[<]CRSR D>] QUESTO RISULTATO!" 
95 PRINT"[<3CRSR D>]":END 
96 POKEU2+R,32:POKEU2+R+1,3Z:POKEU2+R+22, 
32:POKEU2+R+23, 32 i 
97 POKEU2+R-22,32:POKEU2+R-44,32:POKEU2+R 
-13,32 
98 RETURN 
99 DATA201,500,191,500,201,500,191,500,19 
5,260,191,200 
100 DATA195,260,201,260,191,260,215,260,2 
01,500,-1,-1 
101 POKE36879, 26 
102 PRINT"[<]CLR>] = -[<1CHR$(209)>]-[<1C 
HR$ (215) >]-[<1CHR$(209)>] [<1RVS>]GOLF[<1] 
RVS OFF>]-[<1CHR$(209)>]-[<1CHR$(215)>]- 
[<1CHR$(209)>]-" 
103 PRINT"[<2CRSR D>]DEVI REALIZZARE 9 
104 PRINT"[<]CRSR D>]BUCHE CON IL MINORE 
PRINT"[<]CRSR D>]NUMERO DI TIRI 
PRINT"[<2CRSR D>]PER OGNI[<]CRSR R>]T 
DEVI 
PRINT" [<]1CRSR D>]SPECIFICARE L'ANGOLO 
PRINT"[<]CRSR D>](0-360) E LA VELOCIT 


PRINT"(1-10) 

PRINT"[<]CRSR D>] [<1CHRS$(213)>][<16 
CHR$(192)>]111 PRINT[<1CHR$(201)>]"  [<1C 
HR$ (194) >] PREMI UN TASTO [<]1CHR$(200) >] 

[<1CHR$(194)>] PER GIOCARE [< 1CHR$ ( 
200) >]" 

112 PRINT" [<1CHR$(202)>] [<16CHR$(192)>] 
113 GETAS$:IFA$=[<1CHR$(203)>]""THEN]13 
114 RETURN 


} 


arti ah 


di Pierluigi Adami 


a ualunque studente di ingegneria, o di mate- 
matica, che si sia imbattuto nello studio del- 
l’analisi numerica non avrà potuto fare a meno di 
pensare che questa disciplina sia nata insieme 
con il primo calcolatore. 
Anche se ciò non è vero, è però innegabile che 
proprio con il calcolatore i metodi dell'analisi nu- 
merica trovano piena ragion d'essere. Essi sono, 
infatti, iterativi: una serie di operazioni viene ripe- 
tuta finchè non si pervenga ad un risultato ottimo 
secondo un certo criterio. Ad esempio, si può 
verificare se il valore ottenuto all’iterazione i- 
esima differisca da quello ottenuto nell'iterazione 


| precedente, a meno di un valore costante prefis- 
suto (criterio di arresto delle iterazioni). Questo 


sarà tanto più piccolo quanta maggiore è la 
precisione che si desidera ottenere. In questo pro- 
gramma il criterio di arresto è 1E-6, che garanti- 
sce una buona precisione in un numero limitato 
di iterazioni. ( 

Se l'errore non riesce a scendere al di sotto del 
criterio di arresto, si dice che il metodo non con- 


verge. 
Ciò detto, veniamo al programma vero e proprio: 
esso è in realtà composto da quattro programmi 
distinti (separabili facilmente) e da due sottopro- 
grammi. 


Programma soluzione equazioni 
Esso sfrutta i due metodi classici delle secanti 


| per trovare una radice intema ad un intervallo 


figura 1). 
£ ovviamente indispensabile definire l'intervallo in 
cui si ritiene giaccia la radice che interessa; la 
convergenza (ossia l'aver trovato una stima della 
radice reale, che differisca da questa meno del- 
l'emore previsto, in un numero limitato di iterazio- 
ni) dipende dall'andamento della funzione nel- 
l'intervallo scelto. Il criterio di amesto è in questo 
caso 1E-8. 
Per garantire la convergenza si può consigliare: 
e cercare, se possibile, un intervallo in cui la fun- 


zione volga sempre la concavità dalla stessa par- 


te (ossia, sempre verso l'alto o il basso); 

e cercare, se possibile, di definire l'intervallo in 
modo che la funzione assuma segno opposto nei 
due estremi; 

e evitare, ovviamente, punti di discontinuità inter- 
ni all'intervallo; 

e evitare radici multiple. 

Anche se uno di questi punti non fosse rispettato, 
si può ugualmente avere la convergenza. Talvol- 
ta il metodo trova la radice più vicina all'interval- 
lo definito, anche se è al di fuori di esso. 

La formula iterativa è: 


141) = x(1) —F (()) — MX) 
i 7 È F (x (1)) — F(x(I-1)) 


Figura 1 - Metodo delle 
secanti per la ricerca di 
una radice di un’equa- 
zione. 
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Figura 2 - Approssima- 
zione di integrali tramite 
somma di trapezi. 


Figura 3 - Curva che in- 
terpola un insieme di 
punti. 


Il primo valore x(0) da cui parte il procedimento è 
l'estremo opposto di intervallo verso cui la curva 
mostra la sua convessità (estremo di Fourier), co- 
incidente con (a) nel 1° metodo delle secanti, e 
con (b) nel 2° metodo. 

(Il 2° metodo sfrutta una formula leggermente 
modificata). 

Il programma prova a risolvere il problema pro- 
vando entrambi i metodi in sequenza. Se, nono- 
stante ciò, non riesce a convergere, stampa un 
risultato parziale, da valutare con cautela: esso 
può anche essere molto prossimo alla radice rea- 
le e può dunque servire ad orientare meglio l'in- 
tervallo nel successivo tentativo, ma può anche 
discostarsi di molto. 


Programma soluzione sistemi lineari 


Il metodo usato per risolvere il problema è quel- 
lo classico delle eliminazioni successive di Gauss. 
Si rimanda ad un testo specializzato per una trat- 
tazione dettagliata. 

Esso comunque sfrutta un principio ben noto: se 
in una matrice (0 array, o schiera) si sostituiscono 
arighe(ocolonne) delle loro combinazioni linea- 
ri (ad esempio si somma ad una riga il valore di 
un'altra moltiplicato per due) il determinante 
della matrice non cambia. 

Molti ricorderanno il metodo di Cramer per la 
soluzione dei sistemi lineari: ebbene, in quel me- 
todo era proprio il determinante della matrice dei 


coefficienti a svolgere il ruolo maggiore nel cal- 
colo delle radici. 

Allora, il metodo di Gauss, lasciando inalterato 
il determinante della matrice dei coefficienti, 
opera successive elaborazioni per semplificare il 
sistema. Passo dopo passo, grungeni proprio alle 
soluzioni con estrema rapidità. 
Dato che questo metodo richiede dei rapporti 
con dei coefficienti via via calcolati, c'è il rischio 
che l'errore di calcolo si moltiplichi, quando i co- 
efficienti diventino troppo piccoli. 
Questi parametri sono il pivot (vedi istruzione SR, 
ed il cogfficiente A (n, n) della matrice (n è il 
numero equazioni del sistema), che vengono 
modificati ad ogni iterazione. 
Se questi valori scendono al di sotto di 1E-6, allora 
il programma si arresta. 
Questo è il caso dei sistemi detti mal-condizionati 
e di quelli con det (A) = 0. 
Il programma provvede comunque a visualizzare 
i valori del pivot e l'ultimo valore di A (n, n), insie- 
me con gli indici di iterazione, prima dei risultati. 
Se si osservano valori molto piccoli di uno dei 
parametri (meno di 1E-3), bisogna comunque 
valutare con cautela i risultati per la presenza di 
(eventuali) moltiplicazioni d'errore. 


Programma soluzione integrali definiti 


I metodi di calcolo numerico li integrali, 
sfruttano un principio di approssimaz piutto- 
sto semplice: sostituiscono alla curva da integra- 
re nell'intervallo (a, b) una spezzata (vedi figura 
2): l'integrale definito della funzione, che è nume- 
ricamente pari all'area descritta dalla curva con 
l'asse x, può quindi essere approssimato dalla 
somma delle aree dei vari trapezi, costruiti come 
in figura 2. 

In pratica si sostituisce ad ogni intervallo un poli- 
nomio interpolatore: nel caso dei trapezi, col poli- 
nomio più semplice, la retta. È naturale che 
aumentando il numero dei trapezi, ossia stringen- 
do gli intervalli Dx, si migliora l'approssimazione. 
Il metodo che viene qui presentato è il metodo 
delle parabole, del secondo ordine. 

Senza soffermarsi ulteriormente, sono comunque 
da evidenziare alcune considerazioni sull'errore: 


KKAKKAKAAAAAAAAAAAAAAAAAAAAAAAAA AAA 
* 


ANALISI NUMERICA: 


SOLUZ.EQUAZIONI 
REM * 2) SOL.SISTEMI LINEARI 
REM * 3) SOL.INTEGRALI DEFINITI 


REM * 4) INTERPOLAZIONE MIN.QUADR. 
IN RLLLLZILIZIA ZI STI ZI CI ZI ITA T TAI: 


10 REM * ha 
ll REM * PER COMMODORE 64 * 
12 REM * Ù 
13 REM * DI:PIERLUIGI ADAMI hg 
14 REM * V.GIUNIO SILANO 18,00174 ROMA* 


15 REM * * 
LLELEEZZZZZZZIZIIITIII TIA TIA TAA TT 


POKE53280,6:POKE53281,6:PRINT"[<1YEL>] 


PRINT"[<1CLR>]CERCO L'IND.MEMORIA DELL 
A ISTRUZ.N.3012" 

19 FORI=7800T010000:IFPEEK(I)+256*PEEK(I+ 
1)=3012THEN21 | 

20 NEXT:END 

21 CM=I+9:C$=STR$ (CM) :TY=61 

22 FORJ=1T04:POKEI+J+78,ASC(MID$(C$,J+1,1 
)) :NEXT 

23 PRINT" [<1CRSR D>]L'ISTRUZ.3012 INIZIA 
ALL'INDIR.NUM:";I:GOTO4000 

24 REM 

25 PRINT"[<1CLR>]MENU'DISPONIBILE IN QUES 
TO PROGRAMMA" :PRINT:PRINT:PRINT 

28 PRINT"SOLUZIONE EQUAZIONI.....0000001l" 
30 PRINT:PRINT"SOL.SISTEMI LINEARI....... 
PEPTARP O aa 

40 PRINT:PRINT"CALCOLO INTEGRALI......0%% 
000,3" 

50 PRINT:PRINT"INTERPOLAZIONE...:0000000% 
00004" 

60 PRINT"[<3CRSR D>]PREMI IL NUM.DESIDERA 
TO " 

96 GETN$S:IFN$=""THEN96 

97 IFVAL(N$)<lORVAL(N$)>4THEN96 

98 VL=VAL(N$) :ONVLGOTO100,500,800,1000,20 
00 


99 REM 
100 PRINT" [<1CLR>]PROGRAMMA SOLUZIONE EQU 
AZIONI" 

103 GOSUB3000 

106 PRINT"[<1CLR>]DEFINISCI L'INTERVALLO 
OVE SI[<1CRSR D>]" 

107 PRINT"RITIENE RISIEDA LA RADICE[<3CRS 


Listato 1 - Il listato del 
programma in questio- 


ne. 
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R_D>5]A 
110 
120 
140 
144 
145 


X=B:L=0 
REM 


INPUT"ESTREMO INFERIORE";A:PRINT 
INPUT"ESTREMO SUPERIORE";B 


REM ORA INIZIA LE ITERAZIONI CON 


146 REM IL I METODO DELLE SECANTI 


147 
150 
160 
162 
163 
ERMINAZIONE":GOTO300 
164 IFD=0ANDLTHEN200 
166 R=N/D 

170 E=ABS(R-X) 

180 
(0) 
190 
200 
D>]" 


REM 
FORI=1T030 


D=FNA(X)-FNA(A) 


N=A*FNA(X)-X*FNA(A) 


IFD=0ANDL=O0THENPRINT"[<2CRSR D>] INDET 


IF E<=lE-8THEN220:REM CRITERIO ARREST 


X=R:NEXT:IFL=0THEN300 
PRINT" [<2CRSR D>]NON CONVERGE [<1CRSR 


205 PRINT"DIFF.ULTIMI 2 VALORI";E 
210 PRINT"[<1lCRSR D>]RISULTATO PARZ.=";R 
212 PRINT"[<1CRSR D>]CAMBIO INTERVALLO? ( 


S/N) " 


214 GETZ$:IFZ$=""THEN214 
216 IFZ$="S"THENPRINT"[<1CLR>]":GOTOl10 


218 GOTO420 


220 PRINT"[<2CRSR D>]N.ITERAZIONI";I:PRIN 
T"[<3CRSR D>]LA RADICE DELL'EQUAZ.E'";R:G 
0T0420 

300 PRINT"[<4CRSR D>]PROVO II METODO [<3CR 


SR D>]":REM SECONDO METODO DELLE SECANTI 
400 X=A:A=B:N=-N:D=-D:L=1 


410 GOTO150 


420 REM AZZERA LA FUNZIONE E DA'IL MENU 


425 GOTO4000 


e l'ampiezza degli intervalli Dx di divisione dell'in- 
tervallo di et sigg (a, b) aumenta all'au- 
mentare dello stesso (a, b): dunque, aumentan- 
do l'intervallo d'integrazione aumenta di appros- 
simazione. Perciò un intervallo troppo ampio 
portare ad una non-convergenza del metodo, o 
ad una convergenza molto lenta; 

e evidenziamo allora la formula analitica dell'er- 
rore: i 
ERRORE = * F(N)(@) 


ove F(IV)(@)è la derivata quarta della funzione 
in un punto interno ad (a, b), N è il numero di 
intervallini Dx elevato alla quarta. 

Tutto ciò, in pratica, significa che se si vuole ga- 
rantire la convergenza, bisogna non allargare 
troppo (a, b); è però probabile la convergenza 
nel caso in cui il valore N e la derivata quarta 
siano tali da mantenere l'errore comunque pic- 


In caso di Mancata convergenza (errore > 1E- 
6), il programma rende noti i valori parziali cui è 
giunto nell'ultima iterazione. 

Il risultato parziale ottenuto potrà essere allora 
valutato in base ai valori dell'errore visualizzati. 
Viene anche fomito l'errore percentuale (stima- 
to): è chiaro che, se esso supera il 100% vuol dire 
che il risultato ottenuto è ben lontano dalla con- 


vergenza. 
Il tempo di calcolo può essere notevole, se la 
funzione da integrare è complessa. 


Programma interpolazione minimi quadrati 


Il problema classico dell'interpolazione è tipico 
delle scienze statistiche: ottenuto un certo insie- 
me di punti come risultato dell'osservazione di 


498 REM SISTEMI EQUAZIONI 


499 REM 


500 PRINT" [<1CLR>] PROGRAMMA SOL.SISTEMI L 


INEARI[<4CRSR D>]" 
505 
506 
507 
520 
530 
540 
RIGHE": PRINT 


NP=N+1:NM=N-1 
E=lE-6 


INPUT"NUM.EQUAZIONI";N: PRINT 
IFN<20RN>80THEN505 
DIMA(N,N+1) ,X(N) ,I(N,N) 


PRINT"INSERISCI MATRICE COMPLETA PER 


545 PRINT"M.COMPLETA=(MAT.COEFF.:VETT.TER 


M.NOTI) [<1CRSR D>]" 
550 
555 
557 
560 
570 
580 


FORK=1TONM 


FORI=1TON:FORJ=1TON+1 
IFJ=N+1THENPRINT"="};:GOTO560 
PRINT'A(":1:" Pilodi SP Bi dal us 
INPUTA(I,J):PRINT:NEXT:NEXT 


PV=ABS(A(K,K)):REM CALCOLA IL PIVOT D 


ELLE ELIMINAZIONI DI GAUSS 


590 KM=K:KP=K+1 
595 FORI1l=KPTON 


600 IFPV>=ABS(A(Il,K))THEN6l10 
605 PV=ABS(A(Il,K)):KM=Il:REM AGGIORNA IL 


PIVOT 
610 NEXT 


620 IFVL=2THENPRINT:PRINT"INDICE:";K,"PIV 


OT:"5 BV 
625 
LO 
630 
635 
640 
645 
650 
655 


IFKM=KTHEN650 


A(K,Jl)=A(KM,Jl) 
A(KM,Jl)=T:NEXT 


una popolazione (campione), può essere utile 
avere a disposizione una curva che descriva nel 
modo migliore possibile l'andamento di quei 
punti. Avere a disposizione una funzione che ap- 
prossimi i punti dell'esperimento diventa utilissi- 
mo quando si voglia manipolare i dati, cercan- 
done particolari caratteristiche, o nel problema 
della predizione. Ricavato, ad esempio, come 
dato il valore medio dei prezzi di una certa merce 
nei mesi di un anno, una volta ottenuta la curva 
interpolante si potrà predire l'andamento futuro 
del mercato. 

È ovvio, però, che l'interpolazione riveste una no- 
tevole importanza in altre discipline, oltre alla 
statistica. 

Il problema sta nel cercare la curva ottima. Si 
deve dunque definire un parametro che valuti la 
bontà del risultato raggiunto. Il parametro più 


IFPV<=ETHEN725:REM PIVOT TROPPO PICCO 
FORJ1l=KTONP:T=A(K,J1) 


FORI=KPTON:FORJ=KPTONP 
A(I,J)=A(I,3J)-(A(I,K)/A(K,K))*A(K,J) 


spesso usato è la somma degli errori tra i valori 
effettivi e quelli stimati con la funzione, elevati al 
quadrato (emore quadratico). 

Tipi diversi di funzioni possono dunque approssi- 
mare più o meno bene, secondo l'errore quadra- 
tico, l'andamento dei punti dell'esperimento. 

Il programma permette all'operatore di sce- 
gliere tra tre tipi di curve: esponenziale, potenza, 
polinomiale. La scelta può essere fatta in base ad 
una preventiva osservazione dell'andamento dei 
punti, o in base alle particolari esigenze che si 
vogliono dalla stima. 

Dopo aver fornito i dati in ingresso, ed una rapidis- 
sima elaborazione, viene visualizzata l'equaz. 
della funzione, i valori inseriti in input ed i valori 
stimati ottenuti con la funzione interpolatrice. Su- 
bito dopo compare l'emore quadratico, che ci 
può servire per valutare la bontà della stima otte- 
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NEXT:NEXT:NEXT 
REM 
REM ECCO RISULTATI E DATI UTILI 
REM 
IFVL=2THENPRINT:PRINT"N.RIGHE:";N,"A( 
N,N):";A(N,N):PRINT:PRINT 
670 IFABS(A(N,N))<=ETHEN725 
675 X(N)=A(N,NP)/A(N,N) 
680 FORM=1TONM 
690 I2=N-M:SM=0 
700 FOR3J2=1I2+1TON 
705 SM=SM+A(I2,32)*X(3J2):NEXT 
710 X(I2)=(A(I2,NP)-SM)/A(I2,1I2):NEXT 
711 IFVL=4THENRETURN 
720 PRINTTAB(10);"ECCO I RISULTATI":PRINT 
725 FORI2=1TON:PRINTTAB(10);"X(";12;")=":;: 
X(I2):NEXT:GOTO4000 
799 REM 
800 PRINT"[<1CLR>]PROGRAMMA CALCOLO INTEG 
RALE" 
801 REM 
802 REM CALCOLO INTEGRALI DEFINITI 
803 REM CON IL METODO DELLE PARABOLE 
817 GOSUB3000 
818 PRINT"[<1CLR>]":INPUT"ESTR.INFER. INTE 
GR. ";A 
819 PRINT: INPUT"ESTR.SUPER.INTEGR.";B:PRI 
NT 
850 MM=25:E=lE-6:REM NUM MAX ITERAZIONI E 
CRITERIO D'ARRESTO DELL'ERRORE 
860 VP=(FNA(A)+4*FNA((A+B)/2)+FNA(B))*(B- 
A)/6 
870 VZ=FNA(A)+FNA(B) 
880 FORM=2TOMM 
890 H=(B-A)/(2*M):M2=2*M-1:IC=4:VS=0 
900 FORI=1TOM2 
910 VS=VS+IC*FNA(A+I*H) 
920 IC=6-IC:NEXT 
930 VS=(VZ+VS) *H/3 
940 IFABS(VS-VP)<=ETHEN985 
950 ER=ABS(VS-VP):VP=VS:NEXT 
960 PRINT"NUM.ITERAZ.> DEL MASSIMO [<2CRSR 
D>]" 
964 PRINT"DIFF.ULTIMI 2 VALORI:";ER 
965 PRINT"[<1CRSR D>]ERRORE PROBAB.CIRCA: 
"> 1130*ERTS" 
970 PRINT"[<2CRSR D>]RISULTATO PARZIALE=" 
$VS 
975 GOTO992 
985 PRINT"NUM.ITERAZIONI:";M 
987 PRINT: PRINT"RISULT.INTEGRALE=";VS 


992 GOTO4000 
1000 REM 

1001 PRINT"[<1CLR>]PROGRAMMA INTERP.MIN.0Q 
UADRATI" 

1002 REM 

1010 DIMX1(100),Y1(100) 

1015 PRINT"[<4CRSR D>]PONI N=0 PER UNA F. 
POTENZA" 

1020 PRINT"[<1CRSR D>][<5CRSR R>]N=1 PER 
UNA F.ESPONENZIALE" 

1025 PRINT"[<3CRSR D>]PER UNA F.POLINOMIA 
LE, N=GRADO POLIN.+1" 

1030 INPUT"[<2CRSR D>]VALORE N";N1l 

1031 N2=N1:IFN2>=2THEN1033 

1032 N2=2 

1033 DIMA1(N2,N2),D(N2),X(N2),A(N2,N2+1) 
1035 INPUT"[<1CLR>]NUM.PUNTI DA INTERPOLA 
RE";M1l 

1040 PRINT"[<2CRSR D>]INSERISCI I VALORI 
ORDINATI [<2CRSR D>]" 

1044 REM INPUT DEI DATI 

1045 FORI=1TOM1 

1050 PRINT"X(";1I;")=";:INPUTX1:X1(I)=X1 
1055 PRINTTAB(14);"[<1CRSR U>]Y(";I;")="; 
:INPUTY2:Y1(I)=Y2:NEXT 

1125 REM ** CALCOLA LOG.DEI DATI PER LE 
1126 REM ** F.POTENZA ED ESPONENZIALE 
1130 IFN1>=2THEN1170 

1132 FORI=1TOM1:IFY1(I)<=0THEN1700 

1135 'Yl1(I)=LOG(Y1(I)):NEXTI 

1150 IFN1=1THEN1170 

1152 FORI=1TOM1:IFX1(I)<=0THEN1700 

1155 X1(I)=LOG(Xl(I)):NEXTI 

1170 REM 

1210 FORI=1TON2:FORJ=1TON2 

1220 IF(I+J)>2THEN1235 

1225 Al(I,3J)=M1l 

1230 GOTO1250 

1235 FORK=1TOM1:A1(I,J)=Al(I,J)+X1(K)(I+ 
J=2) 

1245 NEXTK 

1250 NEXTJI 

1255 FORK=1TOM1 

1260 IFI>1THEN1275 

1265 D(I)=D(I)+Y1(K) 

1270 GOTO1280 

1275 D(I)=D(I)+Y1(K)*X1(K)"(I-1) 

1280 NEXTK:NEXTI 

1310 N=N2:NM=N-1:NP=N+1:E=1E-6 

1320 FORI=1TON:FORJ=1TON:A(I,3J)=Al(I,J):N 
EXTJ:NEXTI 
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1330 FORI=1TON:A(I,N+1)=D(I):NEXT 

1331 REM 

1332 REM RISOLVE IL SISTEMA LINEARE 

1333 REM USANDO IL PROGRAMMA APPOSITO 
1334 REM 

1340 VL=4:GOSUB570:REMCHIAMATA AL PROGRAM 
MA SOLUZIONE SISTEMI LINEARI 

1395 IFNl>1THEN1430 

1400 C1=EXP(X(1)) 

1405 IFN1=1THEN1420 

1406 REM STAMPA LA FUNZ. INTERPOLANTE 

1410 PRINT"[<1CLR>]FUNZ.POTENZA:":PRINT"[ 
<lCRSR D>]Y=";C1;"*x"":X(2) 

1415 GOTO1490 

1420 PRINT"[<1CLR>]FUNZ.ESPONENZ.:":PRINT 
"[<1CRSR D>]Y=";C1l;"*EXP(";X(2);"*x)" 
1425 GOTO1490 

1430 IFX(2)>=0THEN1445 

1435 PRINT"[<1CLR>]F.POLINOMIALE:":PRINT" 
[I<lLCRSR D>]}Y="sX(1l}:sX(2) "XX": 

1440 GOTO1450 

1445 PRINT"[<1CLR>]F.POLINOMIALE:":PRINT" 
[<1CRSR D>]Y=";X(1);"+";X(2);"*x"; 


1450 IFN1=2THEN1485 
1455 FORI=3TON1 


1460 IFX(I)>=0THEN1475 


1465 PRINTX(I);"*x®";1-1; 


1470 GOTO1480 


1475 PRINT"+";X(I);"*X®©";1I-l; 


1480 
1485 
1490 


1495 REM ORA CALCOLA L'ERRORE 


1500 REM 
1505 IFNl>=2THEN1545 
1510 FORI=1TOM1 


1515 Yl(I)=EXP(Yl(I)) 


.nuta e confrontarla con altre. 


Il programma è tratto dal libro: Programmare in 
BASIC edizioni Schaum, ma è stato notevolmente 
modificato per il Commodore 64: tra l'altro, do- 
vendo risolvere un sistema lineare, nell'istruzione 
1340 c'è una chiamata al programma Soluzione 
Sistemi Lineari, considerato in quel caso come un 
sottoprogramma. 


Sottoprogramma definisci la funzione 


Questo sottoprogramma permette all'utente di 
definire una funzione in maniera diretta, come se 
fosse un dato in INPUT. 

L'istruzione BASIC DEFFNA (X) =, infatti, impone di 
inserire preventivamente la funzione nel pro- 


gramma, prima del RUN. 

Ciò ovviamente costringe a modificare una linea 
del programma, ogniqualvolta si voglia cambia- 
re la funzione. Procedura inaccettabile per un 
programma come questo, che prevede la possi- 
bilità di passare subito da un sottoprogramma 
all’altro tramite un menu. 

Le istruzioni 3000 e seguenti consentono invece di 
memorizzare immediatamente la funzione: dopo 
aver premuto RETURN la funzione visualizzata vie- 
ne subito utilizzata dal programma chiamante, e 
poi cancellata una volta eseguito il compito (le 
linee 4000 e seguenti"ripuliscono” la memoria). 
Nell'istruzione: 

3012 DEFFNA (X) =0000000000000000000000000 


i 62 zeri servono a conservare 62 zioni di me- 
moria, pronte ad accettare la funzione effettiva 


IFNl1=1THEN1545 
FORI=1TOM1 


X1(I)=EXP(X1(I)) 


NEXTI 
PRINT 


PRINT"[<3CRSR D>]X (REALE)";TAB(16); 
"Y (REALE)";TAB(28);"Y (STIM.) [<1CRSR Dò] 
ULI 


1555 S=0 

1560 FORI=1TOM1 

1565 IFNl>=2THEN1595 
1570 IFN1=1THEN1585 


1575 0#1=C1*X1(1I)°x(2) 


1580 GOTO1615 


1585 Yl=C1*EXP(X(2)*xX1(I)) 


1590 GOTO1615 
1595 Y1=X(1) 
1600 FORJ=2TON1 


1605 Yl=Y1l+X(J)*X1(I)(J-1) 


1610 NEXTJ 


1615 S=S+(Y1(I)-Y1)?2 


1620 PRINTX1(I);TAB(13);Yl(I);TAB(26);yYl 


1625 NEXTI 
1630 PRINT 


1635 PRINT"SOMMA ERRORI QUADR.=";S 


1645 GOTO4100 


1700 PRINT"[<3CRSR D>]VAL.NEGATIVI O NULL 
I IN INGRESSO[<1CRSR D>]" 
1710 PRINT"USA L'APPR.POLINOMIALE[<3CRSR 


D>] n" 
1720 GOTO4000 
3000 REM 


3005 REM SUBROUTINE DEF.FUNZIONE 


3010 REM 


3011 REM 62 ZERI DOPO FNA(X)= 
3012 DEFFNA(X)=00000000000000000000000000 


inserita con la GET (istruzione 3048). | valori inseriti 
in memoria non corrispondono sempre ai rispetti- 
vi valori ASCII: le funzioni di libreria ed i simboli 
algebrici hanno un loro codice particolare. Ad 
esempio la funzione SIN (x) è identificata dal 
numero 191, corrispondente al valore ASCII del 
simbolo grafico Sa. 

Nell'istruzione 3500 la POKE inserisce nelle loca- 
zioni di memoria uguali o successive a CM (indi- 
rizzo di memoria del primo zero dell'istruzione 
3012) i valori ricavati dalla serie di IF (da 3050 in 


poi). 
C'è però un problema: l'indirizzo di memoria del 
primo zero dell'istruzione 3012 può variare note- 


volmente, anche a seguito di piccole variazioni ‘ 


del programma. Chi copierà il programma pro- 
babilmente giungerà ad un valore di CM diverso 
da quello che compare nell'istruzione 3013 CM = 


..—, Valore del tutto indicativo. 
Comunque, è lo stesso Commodore che va a 
cercare “dove ha messo” l'istruzione 3012. Come 
molti sapranno, il numero di un istruzione è me- 
DEE in due celle consecutive e si ottiene 


numero istruzione = PEEK (1) + 256 * PEEK (1+ 1) 
Le istruzioni 18-21 provvedono a cercare all'inizio 
del programma, una volta per tutte, il valore CM. 
Per risparmiare tempo la ricerca inizia alla loca- 
zione 7500: se si intende modificare notevolmen- 
fe il programma, si può allargare il campo, setac- 
ciando al limite tutta la RAM del BASIC-a partire 
dalla locazione numero 2048. Prima o poi l'istru- 
zione 3012 verrà trovata. 

Nel programma le istruzioni 3012 e 3013 non deb- 
bono essere modificate! 

L'indirizzo trovato viene memorizzato in CM, ma 
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3013 CM=8083:REM INDIRIZZO PRIMO ZERO 
3015 PRINT"[<1CRSR D>]DEFINISCI LA FUNZIO 
NE F(X) [<1CRSR D>]":TY=0 3 

3020 PRINT"[<7CRSR R>]AVVERTENZA! [< LICRSR 
DI: 

3025 PRINT"UTILIZZA QUESTI NOMI: [<1CRSR D 
Fi a 

3030 PRINT"A(X)=ATN(X) M(X)=ABS(X)" 
3031 PRINT"C(X)=COS(X) Q(X)=SQOR(X)" 
3032 PRINT"D(X)=SGN(X) R(X)=RND(X)" 
3033 PRINT"E(X)=EXP(X) S(X)=SIN(X)" 


‘3034 PRINT"L(X)=LOG(X) T(X)=TAN(X) [<1C 


RSR Dò>]" 

3035 PRINT"NELLA NOTAZ.SCIENTIF.DEI NUMER 
I CON[<1CRSR D>]" 

3036 PRINT"ESPONENTE, USA LETTERA P AL PO 
STO DI E[<3CRSR D>]" 

3040 PRINT"*** F(X)=[<1RVS>]>[<1CRSR L>] 

[<1RVS OFF>]"; 

3045 GETZS$:IFZ$=""THEN3045 

3046 IFASC(Z$)=13 THEN3600:REM TASTO RETU 
RN 

3047 IFASC(Z$)=222THENV=255:GOTO3500:REM 

PI GRECO 

3048 REM CORREGGE CON INST DEL 

3049 IFPEEK(203)=0CANDTY>OTHENTY=TY-l:POKE 


CM+TY,48:PRINT"[<1CRSR L>] [<2CRSR L>] [< 
1RVS>]>[<1CRSR L>] [<1RVS OFF>]";:GOT0O30 
i 


3050 IFZ$="X"THENV=88:GOT03500 
3051 IFZ$="+"THENV=170:GOT03500 
3055 IFZ$="-"THENV=171:GOT03500 
3060 IFZ$="*"THENV=172:GOT03500 
3064 IFZ$="""THENV=174:GOTO3500 
3065 IFZ$="/"THENV=173:GOT03500 
3066 IFZ$="S"THENV=191:GOT03500 
3070 IFZ$="C"THENV=190:GOT03500 
3075 IFZ$="L"THENV=188:GOT03500 
3080 IFZ$="E"THENV=189:GOT03500 
3085 IFZ$="A"THENV=193:GOTO3500 
3090 IFZ$="T"THENV=192:GOT03500 
3095 IFZ$="M"THENV=182:GOT03500 
3100 IFZ$="O"THENV=186:GOTO3500 
3102 IFZS="P"THENV=69:GOT03500" 
3105 IFZ$="R"THENV=187:GOTO3500 
3110 IFZ$="D"THENV=180:GOT03500 
3115 IFZ$="("THENV=40:GOTO3500 
3120 IFZ$=")"THENV=41:GOTO3500 
3125 IFASC(Z$)>47ANDASC(Z$)<58THENV=ASC(Z 
$) :GOT03500 


3130 GOTO3045 


Seguito listato |. 


3500 PRINTZ$;"[<1RVS>]>[< 1CRSR L>] [< 1RV 
S OFF>]";:POKECM+TY,V:TY=TY+l:IFTY<=60THE 


N3045 


3505 PRINT" [<1CLR>]FUNZIONE TROPPO LUNGA" 


:GO0T04000 


3600 POKECM+TY,170:RETURN 


4000 REM AZZERA ISTR.3012 E CLEAR 

4010 FORMM=CMTOCM+TY:POKEMM, 48:NEXT:TY=0 
4100 PRINT"[<3CRSR D>]PREMI UN TASTO PER 
IL MENU'" 
4110 GETZ$:IFZ$=""THEN4110 
4120 CLR:G0T025 


ancora non basta: dopo l'esecuzione dei pro- 
grammi Sistemi Lineari o Interpolazione si è co- 
stretti ad usare l'istruzione CLR (vedi linea 4120) 
per evitare l'errore di ridimensionamento di Array 
in successive esecuzioni. Ciò però azzera tutte le 
variabili, alterando quindi anche il valore diCM= 
1 + 9 (istruzione 103). 

Anche in questo caso è il programma stesso che 
provvede a “bloccare” il valore di CM corretto. 
Infatti, le istruzioni 21 e 22 scrivono nelle appro- 
priate locazioni di memoria il valore ricavato di 
CM. “ricostruendo” l'istruzione di assegnazione 
3013 CM =... 

Dunque, qualunque sia il valore CM che verrà 
arbitrariamente inserito nella linea 3013 (di 4 ci- 
fre, però!) sarà lo stesso Commodore che provve- 
derà, dopo il RUN, a comeggere automaticamen- 
te il listato del programma con il valore CM corret- 
to. 

Se si vuole, si possono separare dal resto i pro- 
grammi. 


TELEMATICA 


e Soluzione Equazioni 

1) Eliminare linee: 103, 420, 425; 

2) Porre 420 END; > 

3) Porre 103 DEFFNA (X) =... 

e Sistemi Equazioni 

1) Eliminare linea 711; 

2) Eliminare GOTO4000 dalla linea 725; 

3) Eliminare IPVL = 2THEN dalla linea 620: 

4) Eliminare IPVL = 2THEN dalla linea 665. 

e Calcolo integrali 

1) Eliminazione linee 804, 815, 817, 992; 

2) Porre 815 DEFFNA (X) =... 

Questo programma può girare anche su VIC 20 
espanso: il problema è sapere dove inizia la RAM 
BASIC. Una volta noto il valore, la ricerca della 
locazione CM inizierà con il FOR nella linea 18, a 
partire da quella locazione di memoria, 

Va ovviamente anche modificata per il VIC 20 
l'istruzione 17, che gestisce i colori del bordo e 
dello sfondo. a 


di Riccardo Giucksmann 
Cod. 518D Pag. 186 


L. 19.000 
.” . 
Dal viewdata all'office automation 

Tutti oggi parlano di telematica, di so- anche lo strumento principale che n- 

cietà dell'informazione. di banche da- voluzionerà l'organizzazione e la pro- 

ti duttività del lavoro di ufficio. per realiz- Sommario 


Ma cosa è la telematica? Un insieme 
di servizi di videcinformazione e tra- 
smissione di dati e testi. Innanzitutto la 
videcinformazione. Essa rappresenta 
un servizio che, utilizzando le reti telefo- 
niche pubbliche, permette ad un 
qualsiasi utente, dotato di un televiso- 
re a colori adatto, di richiedere e rice- 
vere informazioni memorizzate su op- 
portune banche di dati (Videotel e Te- 
levideo). Poi vi sono i servizi pubblici 
per la trasmissione di testi scritti do ter- 
mMinale a terminale ed il fac-simile. Essi 


sono basilari, fra l’altro, per la realizzo- 
zione della “posta elettronica” 

Le applicazioni della telematica sono 
infinite ed in parte ancora da scoprire 
Essa è, innanzitutto. un nuovo e poten- 
te medium" nel campo della comu- 
nicazione e dell'informazione. ma è 


zare quello che si chiama "office auto- 
mation” 

Questo libro intende dare un impulso 
alla conoscenza della telematica, e si 
prefigge di offrire al lettore un panora- 
ma dei problemi connessi con questa 
disciplina e con i relativi aspetti appli- 
cativi. Le caratteristiche dell'esposizio- 
ne fanno si che il volume possa propor- 
sì indifferentemente all'esperto EDP e 
di organizzazione, quanto allo studio- 
so che si accosta per la prima volta a 
questa materia: l'esperto troverà un si- 
curo riferimento per la risoluzione di 
problemi teorici e pratici, mentre lo stu- 
dioso troverà, in una forma organica, i 
principi fondamentali indispensabili 
per la conoscenza delle varie proble- 
matiche 


Telematica e suo sviluppo - Evoluzione 
dele telecomunicazioni per lo sviluppo 
della telematica - Reti pertelecomuni- 
cazioni - Reti di calcolatori e banche 
dati - Videotex e Teletext - Altri nuovi 
servizi di telematica - Funzionalità del 
sistema videotex - Sviluppi del videotex 
nel mondo - Telematica in Italia - Svi- 
luppo delle comunicazioni - Applica- 
zioni della Telematica - Comunicazio- 
ni di massa e aspetti socio-economici 
e giuridici 


Potete acquistare il suddetto 
libro nelle migliori librerie oppu- 
re scrivendo direttamente a: 
Gruppo Editoriale Jackson - 
Divisione Libri - Via Rosellini, 12 
20124 Milano 
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